please look at the code

[fasi]

Can some one please look at the code and tell me whats wrong with it .. I have been doing this thing for a long time .. everything in the code works but when it gets to the last line where i am trying to print the report out it gives me an error that the print routine failed .. but it still prints all the reports ..

Dim Report As New CrystalReport1

Private Sub Form_Load()
Dim TransDate As Date
Dim tempDay As String

tempDay = Format(Date, "dddd")
If tempDay = "Monday" Then
TransDate = Format(Date - 5, "m/d/yyyy")
Else
TransDate = Format(Date - 3, "m/d/yyyy")
End If


Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report


Report.EnableParameterPrompting = False
Report.ReadRecords
Set params = Report.ParameterFields


For Each param In params
With param

.ClearCurrentValueAndRange

If .Name = "{?InsertDate}" Then
.AddCurrentValue TransDate
End If


End With
Next

CRViewer1.ViewReport

Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()

CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
Report.PrintOut False

End Sub

[andreys]

Could you please edit your message so we could see code more clear. Just put CODE in square brackets [] before your code starts and /CODE after its ends.

[fasi]

here you go

codeim Report As New CrystalReport1

Private Sub Form_Load()
Dim TransDate As Date
Dim tempDay As String

tempDay = Format(Date, "dddd")
If tempDay = "Monday" Then
TransDate = Format(Date - 5, "m/d/yyyy")
Else
TransDate = Format(Date - 3, "m/d/yyyy")
End If


Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report


Report.EnableParameterPrompting = False
Report.ReadRecords
Set params = Report.ParameterFields


For Each param In params
With param

.ClearCurrentValueAndRange

If .Name = "{?InsertDate}" Then
.AddCurrentValue TransDate
End If


End With
Next

CRViewer1.ViewReport

Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()

CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
Report.PrintOut False

End Sub

[Mc Brain]

He meant that you should do put these tags: [vbcode][/vbcode] to make it more readable. Liek this:

Dim Report As New CrystalReport1
 
Private Sub Form_Load()
Dim TransDate As Date
Dim tempDay As String
 
tempDay = Format(Date, "dddd")
    If tempDay = "Monday" Then
        TransDate = Format(Date - 5, "m/d/yyyy")
    Else
        TransDate = Format(Date - 3, "m/d/yyyy")
    End If
 
 
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
 
 
    Report.EnableParameterPrompting = False
    Report.ReadRecords
    Set params = Report.ParameterFields
    
        
    For Each param In params
        With param
        
            .ClearCurrentValueAndRange
            
            If .Name = "{?InsertDate}" Then
                .AddCurrentValue TransDate
            End If
            
           
        End With
    Next
    
    CRViewer1.ViewReport
    
Screen.MousePointer = vbDefault
 
End Sub
 
Private Sub Form_Resize()
 
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
Report.PrintOut False
 
End Sub

Besides, post a better subject. "Please look at the code" means nothing to me.

[fasi]

Dim Report As New CrystalReport1

Private Sub Form_Load()
Dim TransDate As Date
Dim tempDay As String

tempDay = Format(Date, "dddd")
    If tempDay = "Monday" Then
        TransDate = Format(Date - 5, "m/d/yyyy")
    Else
        TransDate = Format(Date - 3, "m/d/yyyy")
    End If


Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report


    Report.EnableParameterPrompting = False
    Report.ReadRecords
    Set params = Report.ParameterFields
    
        
    For Each param In params
        With param
        
            .ClearCurrentValueAndRange
            
            If .Name = "{?InsertDate}" Then
                .AddCurrentValue TransDate
            End If
            
           
        End With
    Next
    
    CRViewer1.ViewReport
    
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()

CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
Report.PrintOut False

End Sub

[fasi]

Thanx,

But can you guys see now why is it giving me this error

[Mc Brain]

much better... if you use vbcode instead of code tags, your code gets colored, as well.

[Professor29]

Try putting vbCode in braces (ex:[]) at the beginngin of the code and /vbCode in braces at the end of the code.

Instead of this:

If bla then 'My Code

Or this with code tags:

 If bla then 'MyCode

Your code will look like this:

If bla then 'MyCode

Try that.

[andreys]

Ye that... Thanks Mc Brain

[Mc Brain]

Originally posted by fasi
Thanx,

But can you guys see now why is it giving me this error

Sorry... I've only worked with Crystal Reports a few times and don't remember anything. That's why a proper subject is important!!!

[andreys]

On what line are you getting an error?

[fasi]

the last line where

report.printout false

[techgnome]

Here's an importaint question: What's the error? <snip> -- ignore this part -- And specify EXACTLY what line it is giving an error on....</snip>

[andreys]

If you using Crystal Report Control, there is no such thing as .PrintOut

try

Report.PrintReport