TPrinter的問題求助 poLandscape轉錯方向了 |
尚未結案
|
Jack0323
初階會員 發表:22 回覆:70 積分:28 註冊:2002-03-13 發送簡訊給我 |
請問各位高手: 我的問題是:
當設成直式列印後,正常來說不是應該是由左而右的方式列
但是我設成Printer.Orientation := poLandscape 後
列印的 ====希望印出的應該是=======
Delphi K.Top 討論區
====但是實際印出來確是=====
區論討 poT.K ihpleD 請問這該如何修改程式呢 Printer.Orientation := poLandscape ;
Printer.BeginDoc;
Printer.Canvas.Font.Size := 12;
Printer.Canvas.Font.Name := '細明體';
........
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
Jack0323
初階會員 發表:22 回覆:70 積分:28 註冊:2002-03-13 發送簡訊給我 |
MicKey兄:謝謝您的回應 我可能開版時說明不夠清楚,很抱歉
橫向列印時是正常的
但是我改成直式列印時,一般來說
資料的列印方血應該也是由左而右列印
但是我這段程式直式印出來的情況卻是不一樣
例如: =====正常列印時是=====
這是測試資料
這是測試資料
這是測試資料
這是測試資料
====改直式列印後變成====
料資試測是這
料資試測是這
料資試測是這
料資試測是這
===========================
因為很少用到TPrinter
不知道是程式那裡寫錯
還請mickey兄或其他高手能指導一下 Printer.Orientation := poLandscape ;
Printer.BeginDoc;
Printer.Canvas.Font.Size := 12;
Printer.Canvas.Font.Name := '細明體';
i := 1;
while not EOF(aFile) do
begin
Readln(aFile,aStr);
Printer.Canvas.TextOut(nX,nY I,aStr);
i := i 1;
end;
Printer.EndDoc;
|
leo2568
中階會員 發表:54 回覆:124 積分:70 註冊:2003-09-21 發送簡訊給我 |
資源不足,先這樣測試吧!
Printer.BeginDoc;
Printer.Orientation := poLandscape ;
Printer.Canvas.Font.Size := 12;
Printer.Canvas.Font.Name := '細明體';
i := 1;
while not EOF(aFile) do
begin
Readln(aFile,aStr);
Printer.Canvas.TextOut(nX,nY I,aStr);
i := i 1;
end;
Printer.EndDoc; 發表人 - leo2568 於 2003/12/29 22:21:57
|
Jack0323
初階會員 發表:22 回覆:70 積分:28 註冊:2002-03-13 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
leo2568
中階會員 發表:54 回覆:124 積分:70 註冊:2003-09-21 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |