I have designed report in Crystal 8. My user would like to click on a button in VB 6 application and create pdf out of the report. Is this possible?? Please help me..
This is what I have so far...Will be thankful for any help.
Public Function PrintInhouseCheckRegister() As Boolean
On Error GoTo Err_PrintInhouseCheckRegister
Dim CRApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report
Dim CRViewer As New CRViewer
PrintInhouseCheckRegister = False
Set crReport = CRApp.OpenReport("D:\CheckRegister.rpt"
crReport.DiscardSavedData
frmCrystalViewer.Caption = "Print Check Register"
frmCrystalViewer.CRViewer.ReportSource = crReport
frmCreateInhouseCheck.Hide
frmCrystalViewer.Show
frmCrystalViewer.CRViewer.ViewReport
PrintInhouseCheckRegister = True
Exit_PrintInhouseCheckRegister:
Exit Function
Err_PrintInhouseCheckRegister:
MsgBox Error$ & Err
Resume Exit_PrintInhouseCheckRegister
End Function
This is what I have so far...Will be thankful for any help.
Public Function PrintInhouseCheckRegister() As Boolean
On Error GoTo Err_PrintInhouseCheckRegister
Dim CRApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report
Dim CRViewer As New CRViewer
PrintInhouseCheckRegister = False
Set crReport = CRApp.OpenReport("D:\CheckRegister.rpt"
crReport.DiscardSavedData
frmCrystalViewer.Caption = "Print Check Register"
frmCrystalViewer.CRViewer.ReportSource = crReport
frmCreateInhouseCheck.Hide
frmCrystalViewer.Show
frmCrystalViewer.CRViewer.ViewReport
PrintInhouseCheckRegister = True
Exit_PrintInhouseCheckRegister:
Exit Function
Err_PrintInhouseCheckRegister:
MsgBox Error$ & Err
Resume Exit_PrintInhouseCheckRegister
End Function