|
Subject:
|
Crystal Report Printing Problem
|
|
Posted By:
|
walmohsin
|
Post Date:
|
1/10/2007 7:52:29 AM
|
Hello,
I have visual Basic6 and Seagate Crystal Report
I've designed simple VB project with only one button "print"
This button will run crystal report
This report have only one text field: "Hello message"
The problem is that this program is working fine with some users
and it will not work for others especially when they have new PCs
There is no error message or warnings
The program is working
but when hitting the button, there will not be any response
I checked the Crystal report (.dll) files
(e.g. craxdrt.dll, crviewer.dll, craxdrt.dll) all are there.
The CODE of two testing buttons in the program:
Private Sub Command3_Click()
crpPrintAll.Reset ' crystal report component name
crpPrintAll.ReportFileName = App.Path & "\TestWaseem.rpt"
crpPrintAll.Destination = crptToPrinter ' crptToWindow
crpPrintAll.PrintReport
End Sub
Private Sub Command2_Click()
crpPrintAll.Reset
'crpPrintAll.Connect= "DSN=XXX;UID=XXX;PWD=XXX;DSQ=XXX"
crpPrintAll.ReportFileName = "I have Put full path here"
crpPrintAll.Destination = crptToWindow
crpPrintAll.PrintReport
End Sub
'-------------------
Please, I have this prolem one week ago..
I appreciate your concern
Regards,
|
|
Reply By:
|
walmohsin
|
Reply Date:
|
1/14/2007 3:04:02 AM
|
I tried another project… with tow methods of viewing the report
One with crviewer.dll
The other is with craxdrt.dll
The second one is working… but the old is not…
Can any body tell me what is the problem ????
Here is my new code…
'-------
Dim crpRep As CRAXDRT.Report
Dim crpApp As CRAXDRT.Application
Private Sub Command1_Click()
Set crpApp = New CRAXDRT.Application
Set crpRep = crpApp.OpenReport("s:\testwaseem.rpt")
CrystalReport1.Reset
CrystalReport1.ReportFileName = "s:\testwaseem.rpt"
CrystalReport1.Destination = crptToWindow
CrystalReport1.WindowState = crptMaximized
CrystalReport1.PrintReport
CRViewer1.ReportSource = crpRep
CRViewer1.ShowNextPage
CRViewer1.Visible = True
CRViewer1.ZOrder 0
CRViewer1.ViewReport
CRViewer1.PrintReport
End Sub
'--------------------
Regards,
|
|
Reply By:
|
walmohsin
|
Reply Date:
|
1/14/2007 3:27:43 AM
|
http://www.geocities.com/w_almohsin/11.bmp
http://www.geocities.com/w_almohsin/22.bmp
|
|
Reply By:
|
walmohsin
|
Reply Date:
|
1/14/2007 3:40:21 AM
|
http://www.geocities.com/w_almohsin/12.bmp
|
