Printing out of paper

發文回覆瀏覽次數：765

推到 Plurk!

推到 Facebook!

尚未結案

BorlandUser
中階會員

發表：148
回覆：217
積分：73
註冊：2004-02-19

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-05-20 12:49:45

IP:203.185.xxx.xxx 未訂閱

If (PrintDialog.Execute = True) Then Begin Printer.BeginDoc; Printer.Canvas.Font.Size := 10; For I := 0 To LogList.Count - 1 Do Printer.Canvas.TextOut(20, I * 100, LogList.Strings[I]); Printer.EndDoc; End; 發現如果超過一版的時候就會print不到,怎麼辦?

jest0024
高階會員

發表：11
回覆：310
積分：224
註冊：2002-11-24

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-05-20 13:31:33

IP:211.74.xxx.xxx 未訂閱

引言:

If (PrintDialog.Execute = True) Then
  j:=0;
  Begin
    Printer.BeginDoc;
    Printer.Canvas.Font.Size := 10;
    For I := 0 To LogList.Count - 1 Do begin
      
        if((i-j)*100>=printer.pageheight)then begin
          printer.newpage;
          j:=i;
        end;
      
      Printer.Canvas.TextOut(20, (I-j) * 100, LogList.Strings[I]);
    end;
    Printer.EndDoc;
  End;

發現如果超過一版的時候就會print不到,怎麼辦?

學而時習之不亦樂乎! 發表人 - jest0024 於 2004/05/20 13:32:34

系統時間：2024-05-19 17:25:28

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！