印刷関連：フォーム印刷VB2008でPrintFormを使いフォームを印刷する使用例サンプルです。印刷関連へPrintFormコンポーネントを使い、フォームを印刷します。 PrintFormコンポーネントは、ツールボックスの Visual Basic PowerPacksにあります。 ■手順 1） PrintActionプロパティで出力を指定 PrintAction列挙体 PrintToPrinter ： プリンタに出力します PrintToPreview ： PrintPreviewDialogコントロールに表示されます（印刷プレビュー） PrintToFile ： EPSファイル (.eps、.ps、または .ai) にフォームのイメージが保存されます 2） Printメソッドで印刷を開始します。 構文： PrintFormコンポーネント.Print (印刷するフォーム, printFormOption ) printFormOption列挙体 CompatibleModeClientAreaOnly ： VB6と互換性のある印刷の実装を使用し、現在表示されているクライアント領域を印刷 CompatibleModeFullWindow ： VB6と互換性のある印刷の実装を使用して、現在表示されているフォームを印刷 ClientAreaOnly ： 現在表示されているクライアント領域を印刷 FullWindow ： 現在表示されているフォームを印刷 Scrollable ： 一部がスクロールされて表示されていなくても、クライアント領域全体を印刷 ■フォームデザイン画面 フォームに、PictureBox , CombBox , Button を配置しています。 そして、下にPrintFormコンポーネントがあります。  ■実行画面 印刷プレビュー画面です。 フォームがイメージとして印刷されています。  ■実行コード Public Class Form1 '印刷プレビューボタン Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '印刷プレビュー Me.PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview 'フォーム全体印刷 Me.PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow) End Sub '印刷 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '印刷 Me.PrintForm1.PrintAction = Printing.PrintAction.PrintToPrinter 'フォーム全体印刷 Me.PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow) End Sub End Class Visual Basic 2008 Express Edition実践入門 |