VB.NET, C#, PowerShell Tipsサイト

Private intPageCnt As Integer = 1    'ページカウンタ

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    intPageCnt = 1

    '印刷を実行
    PrintDocument1.Print()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
        ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

    Dim g As Graphics = e.Graphics

    '長さの単位をミリメートルにする
    g.PageUnit = GraphicsUnit.Millimeter

    'ページごとに描画するオブジェクトを変える
    Select Case intPageCnt
        Case 1
            '文字列を描く(左から10mm、上から20mmの位置）
            g.DrawString("文字列を印刷します。", _
                New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, _
                10, 20)

            '次ページも印刷なのでTrueをセット
            e.HasMorePages = True
        Case 2
            '長方形を描画（青いペン、左から30mm,上から30mm,幅40mm,高さ20mm)
            g.DrawRectangle(Pens.Blue, 30, 30, 40, 20)

            '円を描画（赤いペン、左から30mm,上から60mm,幅40mm,高さ40mm)
            g.DrawEllipse(Pens.Red, 30, 60, 40, 40)

            'このページで印刷終了
            e.HasMorePages = False
    End Select

    'ページカウントアップ
    intPageCnt += 1
End Sub