８．格子状にラインを引いて表形式で印刷する(07_Pri_08)　(旧、SampleNo.060)

１．格子状にラインを引いて表形式で印刷 ２． ３． ４． ５．　 ６．

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

１．格子状にラインを引いて表形式で印刷

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click     '印刷のイベントを呼び出し     '  PrintDocument1.Print()     PrintPreviewDialog1.Document = PrintDocument1     PrintPreviewDialog1.ShowDialog() End Sub Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage     Using g As Graphics = e.Graphics     Using blackPen As New Pen(Color.Black, 0.2)   '線の太さを0.2に     Using f As New Font("ＭＳ ゴシック", 12)         Dim br As Brush = Brushes.Black         'ミリメートルを長さの単位に指定します。         g.PageUnit = GraphicsUnit.Millimeter         '横のライン         g.DrawLine(blackPen, 10, 10, 100, 10)         g.DrawLine(blackPen, 10, 16, 100, 16)         g.DrawLine(blackPen, 10, 22, 100, 22)         '縦のライン         g.DrawLine(blackPen, 10, 10, 10, 22)         g.DrawLine(blackPen, 40, 10, 40, 22)         g.DrawLine(blackPen, 60, 10, 60, 22)         g.DrawLine(blackPen, 100, 10, 100, 22)         Dim s As String = "PCG-FR55J"         Dim n As Integer = 1         Dim m As Integer = 168000         Dim sn As String         sn = CStr(n) & " 台"         g.DrawString(" 商　品　名　  台 数　　　 金 　　額　", f, br, 11, 11)         g.DrawString(s, f, br, 11, 17)         g.DrawString(sn.PadLeft(5), f, br, 44, 17)         g.DrawString((String.Format("{0:#,###} 円", m)).PadLeft(16), f, br, 60, 17)     End Using     End Using     End Using End Sub

２．

３．

４．

５．

６．

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

格子状にラインを引いて表形式で印刷する　　表を印刷する　　罫線を引いて表を印刷する　　罫線を印刷