４．ページ設定ダイアログボックスを表示する(07_Pri_04)　(旧、SampleNo.056)

１．ページ設定ダイアログボックスの表示及び設定結果を印刷プレビュー・印刷設定に反映 ２． ３． ４． ５．　 ６．

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

１．ページ設定ダイアログボックスの表示及び設定結果を印刷プレビュー・印刷設定に反映

別途、テキストボックス(TextBox1.Text)に印刷するデータを表示しておいて下さい。 Private printerPageSetting As New System.Drawing.Printing.PageSettings Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'ページ設定ダイアログの設定及び表示     '現在のページ設定ダイアログの設定を指定     With printerPageSetting.Margins         .Left = CInt(.Left * 2.54 / 10) * 10         .Top = CInt(.Top * 2.54 / 10) * 10         .Right = CInt(.Right * 2.54 / 10) * 10         .Bottom = CInt(.Bottom * 2.54 / 10) * 10     End With     PageSetupDialog1.PageSettings = printerPageSetting     'ページ設定ダイアログの設定 OK ボタンがクリックされたらプレビュー表示     If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then         Button2.PerformClick()     End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '印刷プレビューのダイアログボックスの表示位置と大きさを設定     'ページ設定ダイアログの設定の内容を反映     PrintDocument1.DefaultPageSettings = printerPageSetting     PrintPreviewDialog1.Document = PrintDocument1     '★表示位置を設定     PrintPreviewDialog1.StartPosition = FormStartPosition.Manual     PrintPreviewDialog1.Location = New Point(450, 20)     '★表示するダイアログの大きさを設定する     PrintPreviewDialog1.Size = New Size(440, 640)     '★印刷プレビューの表示倍率を指定     PrintPreviewDialog1.PrintPreviewControl.Zoom = 0.4     PrintPreviewDialog1.ShowDialog() End Sub Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage     '四角形の位置とサイズを表す 4 つの浮動小数点数を格納します     Dim rect As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)     Using myFont As New System.Drawing.Font("ＭＳ Ｐゴシック", 12)         e.Graphics.DrawString(TextBox1.Text, myFont, Brushes.Black, rect)     End Using End Sub 　図１．使用コントロール類と配置図

２．

３．

４．

５．

６．

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

１．ページ設定ダイアログの表示　　２．ページ設定ダイアログの設定結果を印刷プレビューに反映　　３．ページ設定ダイアログの設定結果を印刷設定に反映 ４．テキストファイルを読み込みテキストボックスに表示