５．用紙サイズ及び用紙方向及び印刷部数を設定する(07_Pri_05)　(旧、SampleNo.057)

１．用紙サイズを取得・設定する(直接プログラムで指定) ２．用紙方向横向きで印刷／用紙方向縦向きで印刷 ３．印刷部数を設定する ４．上記の共通コード部分 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：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 / Button3 / PrintDocument1 / PrintPreviewDialog1 / PrintDialog1 トロール： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．用紙サイズを取得・設定する(直接プログラムで指定)

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click '用紙サイズを指定する     Dim pPaperSz As System.Drawing.Printing.PaperKind     pPaperSz = Printing.PaperKind.JapanesePostcard          'はがきサイズの定数     pPaperSz = Printing.PaperKind.A4                        'A4 サイズの定数     Dim pkSize As System.Drawing.Printing.PaperSize     Dim setPaperSize As Boolean = False     For Each pkSize In PrintDocument1.PrinterSettings.PaperSizes         'pkSize.RawKind は、NET Framework version 2.0 からの機能です。         Debug.WriteLine(pkSize.Kind & "    " & pkSize.RawKind & "       " & pkSize.PaperName)         ' pkSize.RawKind         '指定の用紙サイズがサポートされているか         If pkSize.Kind = pPaperSz Then             '指定の用紙サイズが見つかったら用紙サイズを設定する             PrintDocument1.DefaultPageSettings.PaperSize = pkSize             setPaperSize = True     '設定完了のフラグ         End If     Next '確認のためにプレビューを表示     If setPaperSize Then    '設定が無事できたら         PrintPreviewDialog1.Document = PrintDocument1         PrintPreviewDialog1.Size = New Size(800, 900)         PrintPreviewDialog1.PrintPreviewControl.Zoom = 1.0         PrintPreviewDialog1.ShowDialog()     Else         MessageBox.Show("指定の用紙サイズが設定できませんでした。")     End If End Sub

２．用紙方向横向きで印刷／用紙方向縦向きで印刷

Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click '用紙方向横向き／縦向きで印刷     PrintDocument1.DefaultPageSettings.Landscape = Not _                                 PrintDocument1.DefaultPageSettings.Landscape     'PrintDocument1.DefaultPageSettings.Landscape = True     '横向き '確認のためにプレビューを表示     PrintPreviewDialog1.Document = PrintDocument1     PrintPreviewDialog1.Size = New Size(800, 900)     PrintPreviewDialog1.PrintPreviewControl.Zoom = 1.0     PrintPreviewDialog1.ShowDialog() End Sub

３．印刷部数を設定する

Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click '印刷部数を２部印刷     PrintDocument1.PrinterSettings.Copies = 2 '確認のためにプレビューを表示     PrintPreviewDialog1.Document = PrintDocument1     PrintPreviewDialog1.Size = New Size(800, 900)     PrintPreviewDialog1.PrintPreviewControl.Zoom = 1.0     PrintPreviewDialog1.ShowDialog() End Sub

４．上記の共通コード部分

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage '印刷位置をmm単位で指定しての簡単なテキストの印刷     'テキストボックスの内容を印刷     Using g As Graphics = e.Graphics         'ミリメートルを長さの単位に指定します。         g.PageUnit = GraphicsUnit.Millimeter         'テキストボックスの内容を印刷する場合         Using myFont As New System.Drawing.Font("ＭＳ Ｐゴシック", 12)             g.DrawString(TextBox1.Text, myFont, Brushes.Black, 0, 0)         End Using     End Using End Sub

５．

６．

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

１．用紙サイズを取得・設定する(直接プログラムで指定)　　２．用紙方向横向き／縦向きで印刷　　３．印刷部数を設定する　　４．テキストファイルを丸ごと読み込みテキストボックスに表示 ５．印刷位置をmm単位で指定しての簡単なテキストの印刷　　６．確認のためにプレビューを表示