I have the following set up to print an envelope on a HP Laserjet P2015. Every time I print, the out of paper light flashes and I have to press the reset button. Any ideas what is causing this? Here is the code:
Private Sub btnPrintEnvRental_Click()
Dim sSQL As String
sSQL = "PARCEL=" & "'" & Forms!frmRental.[PARCEL] & "'"
' DoCmd.OpenReport "VioLetter", acViewPreview, , PARCEL = Forms!frmResidentialProperties.[PARCEL]
DoCmd.OpenReport "rptEnvRental", acViewPreview, , sSQL
'DoCmd.PrintOut acPrintAll, , , acHigh, 2
End Sub