EndPrint

Public Sub EndPrinting()
On Error Goto ErrorHandler
Again:
DoEvents
Printer.EndDoc
Exit Sub
ErrorHandler:
If (Err.Number = 482) Then
Resume Again
End If
End Sub