印刷をするには

Delphiで印刷を行うときは、プリンタをカプセル化したTPrinterを使用します。そして、TPrinterのインスタンスであるPrinterオブジェクトがデフォルトで使用できます。

（注意）データベースを印刷するときはQuickReportを使用するとビジュアルにレポートを設計できます。データベース化されていないデータでもデータベース化してQuickReportを使った方が簡単できれいな印刷ができます。

簡単な印刷例

次の例はMemoコンポーネントに表示されている文字列を印刷するものです。PrinterのCanvasに書き込んだ文字列がプリンタに送られて印刷されます。Printerオブジェクトはデフォルトで使用できます。このユニットのuses節にはPrintersユニットを追加してください。

procedure TForm1.cmdPrintClick(Sender: TObject);
var
  i : Integer;

begin
  Printer.BeginDoc;
  for i:=0 to Memo1.Lines.Count-1 do
    Printer.Canvas.TextOut(120, 40 * i, Memo1.Lines[i]);

  Printer.EndDoc;
end;