[VB] Picturebox に貼り付けた画像を印刷する

Picturebox に貼り付けた画像を印刷するサンプルです。

Public Class Form1

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

        ' Pictureボックスに線分を描画した画像を設定
        Dim img As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Dim g As Graphics = Graphics.FromImage(img)
        g.DrawLine(Pens.Black, 0, 0, 100, 100)
        g.Dispose()
        PictureBox1.Image = img

        ' 印刷
        Dim printDocument As New System.Drawing.Printing.PrintDocument
        AddHandler printDocument.PrintPage, AddressOf PrintPage
        Dim printDialog As New PrintDialog
        printDocument.OriginAtMargins = True
        printDocument.DocumentName = "印刷ドキュメント"
        printDialog.Document = printDocument
        If printDialog.ShowDialog() = DialogResult.OK Then
            printDocument.Print()
        End If

    End Sub

    Private Sub PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Using img As Image = Me.PictureBox1.Image
            e.Graphics.DrawImage(img, e.MarginBounds)
            e.HasMorePages = False
        End Using
    End Sub

End Class

Tweet