Print a Crystal Report

[TysonLPrice]

This is a working example of printing a saved Crystal Report. You need to add the Crystal Report references to your project:

Private Sub Command1_Click()

'Print a saved Crytal Report

'Visual Basic 6.0
'Crystal reports 8.0

Dim rsTempRecordset As New ADODB.Recordset
Dim CR_CustomApp As New CRAXDRT.Application
Dim CR_CustomReport As CRAXDRT.Report
Dim prn As Printer

'Using SQL 2000

With cnCMS
.CursorLocation = adUseClient
.ConnectionString = "MSDASQL.1;" & _
"Persist Security Info=True;" & _
"User ID=sa;" & _
"Password='';" & _
"Data Source=CMS"
.Open
End With

'You can use the data saved with the report. I want it fresh everytime.

With rsTempRecordset
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = cnCMS
.LockType = adLockOptimistic
.Source = "Select * from ScanDocumentsErrors "
.Open
End With

Set CR_CustomReport = CR_CustomApp.OpenReport("c:\@@crystal\TwainReport.rpt", 1)

'Use can use the printer saved with the report and skip this part. Or
'use the loop to display the printer avaiable to you. Mine were:

' Availble Printer names:
' TPA
' Federal
' hp LaserJet
' State

For Each prn In Printers
If prn.DeviceName Like "*LaserJet*" Then
Set Printer = prn
Exit For
End If
Next

CR_CustomReport.SelectPrinter prn.DriverName, prn.DeviceName, prn.Port

'Get rid of saved date

CR_CustomReport.DiscardSavedData

'Use can use the orientation saved with the report or override it.
'DefaultPaperOrientation = 0
'Portrait = 1
'Landscape = 2

CR_CustomReport.PaperOrientation = 2

CR_CustomReport.Database.SetDataSource rsTempRecordset

CR_CustomReport.PrintOut False

Set CR_CustomReport = Nothing
Set rsTempRecordset = Nothing
cnCMS.Close

End Sub

[coolwater]

Where's the show report?

[TysonLPrice]

That an old post. I don't even remember it but from the comments I was just showing:

'Print a saved Crytal Report