TPrinterで印刷するには？

解決

もうすぐ中級者 2009-06-16 18:27:10 No: 34789

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

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

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

pekesuke 2009-06-17 00:30:29 No: 34790

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

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

DEKO 2009-06-17 18:17:12 No: 34791

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

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

もうすぐ中級者 2009-06-17 23:33:06 No: 34792

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

もうすぐ中級者 2009-06-20 02:58:06 No: 34793

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