VB2010 PrintDocument

索引サイト





Public Class Form1

    Private z_context As System.Drawing.Graphics

    Private z_font12 As Font = New Font("ＭＳ 明朝", 12)

    Private z_font24 As Font = New Font("ＭＳ ゴシック", 24)
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        z_context = e.Graphics

        z_context.DrawString("ABCDEFG", z_font12, Brushes.Black, 100, 100)

        z_context.DrawString("HIJKLMN", z_font24, Brushes.Black, 200, 100)

        z_context.DrawString("OPQRSTU", z_font24, Brushes.Black, 200, 200)
        z_context.DrawLine(Pens.Black, 100, 200, 300, 400)

        z_context.DrawLine(Pens.Black, 100, 500, 500, 500)
        e.HasMorePages = False

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

        PrintDocument1.Print()

    End Sub

End Class




AX