CR8.5 VB 6 Works: 'If you leav

[BradB]

CR8.5
VB 6

Works:
'If you leave the crviewer1_PrintButtonClicked BLANK, it prints to the default printer and works just fine.

Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
'Blank
End Sub

Does NOT Work:
The following brings up the Print Dialog box. When you select Ok to print, it doesn't do anything.

Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
UseDefault = False
Report.PrintOut True
End Sub

The Printout method is set to True so it should bring up the 'Print' dialog box. The 'Print' dialog box does appear, but when you press OK to print, nothing happens. As it is, having the Printout method to True, it should function exactly as if the "CRViewer1_PrintButtonClicked" has nothing in it, but it doesn't.

Help!

 

[latwv]

if you want the screen to come up to choose a printer then

put Report.PrinterSetup <formname>.hWnd on the line before Report.PrintOut True

otherwise leave the
Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)

sub blank.