TPrinterで印刷するには？

解決

---

お世話になります。
TPrinter を使ってテキストと罫線を使った簡単な印刷をするのですが、

while true do begin
  Printer.begindoc;
  printer.canvas.font〜
  while true do begin
    ≪罫線描画≫
    ≪文字描画≫
  end;
  Printer.EndDoc;
  if 終了チェック break;  
end;


流れはこのようにしています。
このまま印刷すると。
プリントキューに全ページの数だけたまってしまいます。
1つのキューにして出力するにはどうすればいいですか？

編集 削除

---

もうすぐ中級者さん、こんにちは

printer.begindoc;とprinter.enddoc;をwhileループの外に出してください。

編集 削除

---

改ページには NewPage を使います。

Printer.BeginDoc;
while true do 
  begin
    printer.canvas.font〜
    while true do 
      begin
        ≪罫線描画≫
        ≪文字描画≫
      end;
    if 終了チェック then 
      break
    else
      Printer.NewPage;
  end;
Printer.EndDoc;

編集 削除

---

NewPage というのがあったのですね
まだ、試していませんが
とりあえずお礼まで

編集 削除

---

ありがとうございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

返信する