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 發送簡訊給我 |
發表時間：2003-12-29 13:10:50
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-05-16 12:00:37
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |