Imports Infragistics.Win
Imports Infragistics.Win.Printing
Imports Infragistics.Win.UltraWinGrid
Imports Infragistics.Win.UltraWinScrollBar
Imports Infragistics.Win.UltraWinToolbars
Private Sub ultraPrintPreviewDialog1_Printing(ByVal sender As Object, ByVal e As Infragistics.Win.Printing.PrintingEventArgs) Handles ultraPrintPreviewDialog1.Printing
' cast the sender to a UltraPrintPreviewDialog
Dim printPreviewDialog As UltraPrintPreviewDialog = CType(sender, UltraPrintPreviewDialog)
' specify whether a status dialog will be displayed
' during the print operation
e.DisplayPrintStatus = True
' to cancel the print operation set Cancel to true
' e.Cancel = true
End Sub