高分！！简单问题！！！

[koz]

我做了一个报表，但因为字段太多，没办法竖着打。所以我尝试横着打。
但设计完了以后，在预览的时候，显示的不是横向的。
怎样解决？我已经设计landscape属性！！！
现在问题是怎样解决预览的问题？

[koz]

换个问题：
qreport如何实现自动换功能！

[jaunmai]

QuickRep1BeforePrint判別設定Page Orientation值

[koz]

不好意思。我要的是自动换行！而且是中文的自动换行！
我设计过qredit的autosize＝false和autostreng＝true，还是不行
大侠。有办法吗？

[suton]

自动换行?中文的自动换行?實在不明白。

[koz]

有个朋友帮我实现了！确实可以用报表的edit实行自动换行，

[qufan]

高手慢走！！！
能不能告诉俺您那位朋友是怎么弄的那
小弟也遇到这样的问题那，还象变态度有过之
而无不及哦
我要作一张打印题名的表，要求一次可以打印四个（竖排的那）
我想了很就都没有解决方案那
希望您赐教哦

[g58521547]

up

[tqtang]

procedure TForm2.QRDBText1Print(sender: TObject; var Value: String);
var
bExit : boolean;
iLen : integer;
strSource, strTemp : string;
begin
if Length(Value) <= 32 then
exit;
strSource := Value;
Value := '';
while true do
begin
iLen := 1;
while iLen < 32 do
begin
if ord(strSource[iLen]) > 128 then
inc(iLen, 2)
else
inc(iLen);
end;
dec(iLen);
strTemp := Copy(strSource, 1, iLen);
if Value = '' then
Value := strTemp
else
Value := Value + #13 + strTemp;
strSource := Copy(strSource, iLen + 1, Length(strSource) - iLen);
if Length(strSource) <= 32 then
begin
Value := Value + #13 + strSource;
exit;
end;
end;
end;

補充：第一個問題中的32為QRDBText的寬度，你可以自己改變