Private Sub printDoc_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles printDoc.PrintPage
e.Graphics.DrawImage(PictureBox1.Image, 0, 0)
End Sub
Private Sub CmdPrint_Click(sender As System.Object, e As System.EventArgs) Handles CmdPrint.Click
Dim dlgppreview As PrintPreviewDialog = New PrintPreviewDialog
Dim dlg As PrintDialog = New PrintDialog
If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
printDoc.PrinterSettings = dlg.PrinterSettings
dlgppreview.Document = printDoc
dlgppreview.ShowDialog()
End If
End Sub