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
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
( endprint.html )- by Paolo Puglisi
- Modifica del 17/12/2023