Dim memImage As Image = New Bitmap("C:\test.png")
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
        e.Graphics.DrawImage(memImage, 0, 0)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim printDialog1 As New PrintDialog
        printDialog1.Document = PrintDocument1
        Dim result As DialogResult = printDialog1.ShowDialog()
        If result = DialogResult.OK Then
            PrintDocument1.Print()
        End If
    End Sub