Printing directly to printer 1

[onedunpark]

Hi,

This will no doubt be embarrasingly easy, but I'm stumped.

VS 2003 Pro/CR 11 Developer Edition

Am printing reports to a Report Viewer and then from there my users can print/export as appropriate.

How do/can I bypass the viewer form entirely and (based on their choice from my calling form) simply print directly to the default printer, or for that matter export directly to PDF if preferred.

I'm not sure other technical details are required as this is such a fundamental question, but am happy to post whatever code is required, as necessary.

Thanks in anticipation.

Steven

 

[MisterMo]

Business Objects have lots of samples that can help you in achieving your goals

here is one

http://support.businessobjects.com/...ples.exe.asp?ref=devzone_comaspzone_resources

-Mo

 

[onedunpark]

Found the answer separately from MisterMo's suggestion.

However, many thanks for their input which is greatly appreciated.

For interests sake, in basic terms, here is the solution I came up with

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Dim strReportname As String = "myreport.rpt"

If Me.objPrintDest = MyEnum.PrintDestination.Printer Then
strReportname.PrintOptions.PrinterName = “<printerName>”
strReportname.PrintToPrinter(1, True, 1, 1)
End If

If Me.objPrintDest = MyEnum.PrintDestination.PDF Then
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions

crDiskFileDestinationOptions = New DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = "C:\exported.pdf"

crExportOptions = report.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With

strReportname.Export()

End If

Hope that helps someone else.

Steven