８．[印刷]ダイアログボックスの使用方法(28_Dia_08)　(旧、SampleNo.000)

１．[印刷]ダイアログボックスの初期表示の設定と設定値を取得しての印刷プレビューに反映 ２． ３． ４． ５． ６． 　[ページ設定] 及び[印刷プレビュー] 及び [印刷] のダイアログも同時に使用する事になりますのでそちらの設定も合わせてご覧下さい。

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：System.Drawing.Printing 参照設定：追加なし 使用コン：Button1 〜Button4 / TextBox4 / PictureBox1　配置図参照 トロール： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．[印刷]ダイアログボックスの初期表示の設定と設定値を取得しての印刷プレビューに反映

Private WithEvents PrintDocument1 As New Printing.PrintDocument Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click     Call sSetPrintDialog(PrintDocument1) End Sub Public Sub sSetPrintDialog(ByRef printDoc As PrintDocument) '[印刷]ダイアログボックスの初期表示の設定と設定値を取得しての印刷プレビューに反映     'PrintDialog クラスのインスタンスを作成(ツールボックスから貼り付ける場合は必要ありません)     Dim PrintDialog1 As New PrintDialog     With PrintDialog1         'これでページ設定等も反映される         .Document = printDoc         If .ShowDialog() = Windows.Forms.DialogResult.OK Then             '[印刷]ダイアログボックスの設定値を PrintDocument に反映             printDoc.PrinterSettings = .PrinterSettings             'ドキュメントの印刷プロセスを開始又は、印刷プレビューの表示へ             'PrintDocument1.Print()             '印刷プレビューの表示へ(お好みで)             Call sPrintPreview(printDoc)         End If     End With End Sub

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

ダイアログボックス　　Dialog Box