☆印刷プレビュー

[Windowsフォームアプリケーション]
前回のサンプルを利用して、印刷プレビューのサンプルを作ってみました。
印刷プレビューには、PrintPreviewDialogを使います。

　１．前回作成したフォームにButton2、PrintPreviewDialog1を配置します。
　２．Button2のClickイベントとPrintDocument1のBeginPrintイベントに
　　　下記のプログラムを設定します。

procedure TWinForm1.Button2_Click(sender: System.Object;
　　e: System.EventArgs);
begin
　StreamToPrint := StreamReader.Create('c:\PrintMe.txt');
　　　　　　　　　↑↑テキストファイル名は適当に設定して。
　try
　　PrintFont := System.Drawing.Font.Create('Arial', 10);
　　PrintPreviewDialog1.ShowDialog();
　finally
　　StreamToPrint.Close;
　end;
end;

procedure TWinForm1.PrintDocument1_BeginPrint(sender: System.Object;
　　e: System.Drawing.Printing.PrintEventArgs);
begin
　StreamToPrint.BaseStream.Seek ( 0 , SeekOrigin.Begin ) ;
end;