' ... ... ...
Private MiPrintPreviewDialog As PrintPreviewDialog
Private MiPrintDialog As PrintDialog
Private WithEvents MiPrintDocument As System.Drawing.Printing.PrintDocument
' ... ... ...
Private Sub MiPrintDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles MiPrintDocument.PrintPage
' ... ... ...
End Sub
Private Sub MisImpreciones_Closed(sender As Object, e As EventArgs) Handles Me.Closed
MiPrintDialog.Dispose()
MiPrintPreviewDialog.Dispose()
' ...
End Sub
Private Sub MisImpreciones_Load(sender As Object, e As EventArgs) Handles Me.Load
If NombreArchivoParaImpresora = String.Empty OrElse Not File.Exists(NombreArchivoParaImpresora) Then
Me.Close()
End If
MiPrintPreviewDialog = New PrintPreviewDialog
MiPrintDialog = New PrintDialog
MiPrintDocument = New System.Drawing.Printing.PrintDocument
Dim Resultado As DialogResult
MiPrintDialog.Document = MiPrintDocument ' Elimimar 3 lineas si no seleccion del la impresora
Resultado = MiPrintDialog.ShowDialog()
If Resultado = Windows.Forms.DialogResult.OK Then
MiPrintPreviewDialog.Document = MiPrintDocument
MiPrintDocument.DocumentName = NombreArchivoParaImpresora ' A definir si existe ...
' ... ... ...
End If
End Sub