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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '印刷を実行
    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.DrawString("文字列を印刷します。", _
                New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, _
                e.MarginBounds.Left, e.MarginBounds.Top)

    'このページで終了
    e.HasMorePages = False
End Sub