Printing Crystal in VB

[JDPurtell]

I have the below code:

Do Until rsSQL2.EOF
cmdCorrective.ActiveConnection = Plant_SQL
cmdCorrective.CommandType = adCmdStoredProc
cmdCorrective.CommandText = "AT_Corrective_Action"
cmdCorrective.Parameters("@EndDate&quot = dtEnd
cmdCorrective.Parameters("@ClockNo&quot = rsSQL2!ClockNo 'InputBox("Please enter a valid employee clock number.", "Milwaukee Absence Tracking&quot
cmdCorrective.Execute

Set crpParamDefs = Report5.ParameterFields
For Each crpParamDef In crpParamDefs
With crpParamDef
Select Case UCase(.ParameterFieldName)
Case "DTENDDATE"
.SetCurrentValue dtEnd
Case "STRCLOCKNO"
.SetCurrentValue CStr(rsSQL2!ClockNo)
End Select
End With
Next
Report5.PrintOut
rsSQL2.MoveNext
Loop

Each and everytime it loops through I get prompted for my printer information. How can I shut off the prompt?

 

[MarkSweetland]

To print to the default printer with no prompt:


Report5.PrintOut False




Mark