Crystal Report - Window Wont Show

[kovan]

Private Sub Form_Load()
Dim SQL As String

SQL = "{Client016.Amps } = 10"

With CP
.Reset
.DataFiles(0) = ("z:\electric meter department\meter\meter.mdb")
.ReportFileName = (App.Path & "\report1.rpt")
.WindowTitle = "Client Code Report"
.WindowState = crptMaximized
.WindowShowRefreshBtn = True
.SelectionFormula = SQL
.PrintReport
.Destination = crptToWindow
End With

End Sub

someone tell me whts wrong with my code?
and yes the report has records in it that match criteria given..
thank you

[d.paulson]

put .Destination = crptToWindow before .PrintReport

[kovan]

still doesnt work

[kovan]

anyone?
even this doesnt work

Dim SQL As String

SQL = "{Client016.Amps } = 200"

With CP
    .DataFiles(0) = ("z:\electric meter department\meter\meter.mdb")
    .ReportFileName = (App.Path & "\report1.rpt")
    '.WindowTitle = "Client Code Report"
    '.WindowState = crptMaximized
    '.WindowShowRefreshBtn = True
    '.SelectionFormula = SQL
    .Destination = crptToWindow
    .PrintReport
End With

it goes throu the code
but shows nothing

[monte96]

You don't mention which methodology your using. OCX or RTDesigner. Assuming your using the OCX, you need to use Action=1. If you designed the report with no default printer, the report will not be printable at all. (It will display but the print button will do nothing). I think the method you are calling (.printreport) does just what it says..

Most of the time I work with Crystal on the web..

[kovan]

Private Sub Command1_Click()
Dim SQL As String

SQL = "{Client016.Amps } = 200"

With CP
    .DataFiles(0) = ("z:\electric meter department\meter\meter.mdb")
    .ReportFileName = (App.Path & "\report1.rpt")
    .Action = 1
    .WindowTitle = "Client Code Report"
    .WindowState = crptMaximized
    .WindowShowRefreshBtn = True
    .SelectionFormula = SQL
    .Destination = crptToWindow
    .PrintReport
End With

End Sub

yes i am using the ocx...
no wi get error on .action =1 "unable to load report"
and the report is there...

also i have defualt printer..

[monte96]

I was thinking more like:

Private Sub Command1_Click()
Dim SQL As String

SQL = "{Client016.Amps } = 200"

With CP
    .DataFiles(0) = ("z:\electric meter department\meter\meter.mdb")
    .ReportFileName = (App.Path & "\report1.rpt")
    .WindowTitle = "Client Code Report"
    .WindowState = crptMaximized
    .WindowShowRefreshBtn = True
    .SelectionFormula = SQL
    .Destination = crptToWindow
    .Action = 1
End With

End Sub

[kovan]

i copied and pasted EXACTLY what you put in the last reply
still get error on action =1
the error is still "unable to load report"

[kovan]

i figured out why..
i have crystal report 6 and 8 installed (8 was an update to 6)

i just checked the version of ocx. its using the ocx for 6 not 8
grr

....did you select the wrong one from the components box? We get this occasionally with Agent 1 and 2. Is this a bug in vb?

[kovan]

ocx for crystal report 8 didn't even exist
thats we removed crystal report 6 trrying to install 8
and that messed up other things..
and now my computer has to be taken for maintanance again hehe
stupid vb

[Buzby]

A top tip for Crystal Reports;

Instead of doing

Report1.PrintReport

Do

Dim Reply As Long
Reply = Report1.PrintReport

Then Reply contains the Crystal Error code (if there is one) or 0 if the report printed ok. Crystal is notoriously bad at displaying error messages (ie, it doesn't).

Well another layer of error trapping....bring on vb7