Your Privacy Matters: We use our own and third-party cookies to improve your experience on our website. By continuing to use the website we understand that you accept their use. Cookie Policy
540
No printers are installed - UltraPrintPreview
posted

We are currently pre-testing an application with Application Verifier before getting it certified for Windows Vista.  The application contains a Windows Form with an Ultra Grid, UltraPrintPreviewDialog and UltraGridPrintDocument controls.  Under normal conditions all works well.

When running the application under Application Verifier and during the selection of a button that sends the grid data to a Print Preview Dialog, the Print Preview window appears but with no data and a message stating "No Printers Are Installed"

Might someone lend some advice on what within the use of PrintPreviewDialog might be causing this issue?  I've included the code below.

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub ExportPrint(ByVal SourceGrid As String

)

 

 

Select Case

SourceGrid

 

 

Case

"Employee"

UltraGridPrintDocument1.Grid = ugEmployee

UltraGridPrintDocument1.DefaultPageSettings.Landscape =

 

True

UltraGridPrintDocument1.DefaultPageSettings.Margins.Left = 0.25

UltraGridPrintDocument1.DefaultPageSettings.Margins.Right = 0.25

UltraGridPrintDocument1.DefaultPageSettings.Margins.Top = 0.25

UltraGridPrintDocument1.DefaultPageSettings.Margins.Bottom = 0.25

UltraGridPrintDocument1.Header.TextLeft =

 

"Employee Information"

 

 

Case

"Substitute"

UltraGridPrintDocument1.Grid = ugSubstitutes

UltraGridPrintDocument1.DefaultPageSettings.Landscape =

 

True

UltraGridPrintDocument1.DefaultPageSettings.Margins.Left = 0.25

UltraGridPrintDocument1.DefaultPageSettings.Margins.Right = 0.25

UltraGridPrintDocument1.DefaultPageSettings.Margins.Top = 0.25

UltraGridPrintDocument1.DefaultPageSettings.Margins.Bottom = 0.25

UltraGridPrintDocument1.Header.TextLeft =

 

"Substitute Information"

 

 

End

Select

UltraGridPrintDocument1.Footer.TextLeft =

 

Date

.Today.ToString

UltraPrintPreviewDialog1.Document = UltraGridPrintDocument1

UltraPrintPreviewDialog1.ShowDialog(

 

Me

)

 

 

End

Sub