Selecting a printer other than default 1

[awhitsel]

Is there any way that I can show the standard Windows dialog box for selecting a printer for a CR9 report in a VB5 application?

Please advise.

Thanks.

 

[vidru]

Use the PrinterSetup method of the Report object.

This is how I do this with VB6 and Crystal 8.5 using the RDC and the CRViewer control (I don't think the object model changed that drastically for the rdc or the viewer between 8.5 and 9.0).

Private Sub CRViewer_PrintButtonClicked(UseDefault As Boolean)

    UseDefault = False

    'Invoke the Printer Setup dialog
    crxRpt.PrinterSetup Me.hWnd

    Dim p As Printer
    For Each p In Printers
        If p.DeviceName = crxRpt.PrinterName Then
            crxRpt.SelectPrinter p.DriverName, p.DeviceName, p.Port
            Exit For
        End If
    Next p

    crxRpt.PrintOut True, 1

End Sub

-dave

 

[awhitsel]

Will this method work if I am not using the CRViewer control to look at the document before I print it.

I just want to be able to print it out with no whistles and bells -- just click the print button, select and accept the printer selection, and the report gets printed out.

Please advise.

Thanks.

 

[vidru]

Yeah, it'll work without the viewer, just put the above code into your cmdPrint_Click event (get rid of UseDefault = False), and set the arguments of the PrintOut method however you want.

PrintOut ([promptUser], [numberOfCopy], [collated], [startPageN], [stopPageN])

-dave

 

[siongeng]

hmm.. can i ask wat is the RDC u referred to?? i'm using CR 8.5 and VB v6. is there any references that i'll need to add? thanks!

 

[vidru]

RDC - Report Designer Component.

If you've got CR 8.5 Developer edition, you can use it to integrate your reports with VB. Here are some sample applications:

http://support.businessobjects.com/communityCS/TechnicalPapers/apps_rdc.pdf.asp

-dave

 

[siongeng]

Thanks! I've managed to do it.Wow, ur rersponse is sure fast!!