See Also Example
Terminates a document sent to the Printer, releasing it to the print device or spooler.
If EndDoc is invoked immediately after NewPage, no additional blank page is printed.
EndDoc Method Example
The example uses the EndDoc method to end a document after printing two pages, each with a centered line of text indicating the page number. To try this example, paste the code into the Declarations section of a form. Then press F5 and click the form.
Sub Form_Click ()
Dim HWidth, HHeight, I, Msg ' Declare variables.
On Error GoTo ErrorHandler ' Set up error handler.
Msg = "This is printed on page"
For I = 1 To 2 ' Set up two iterations.
HWidth = Printer.TextWidth(Msg) / 2 ' Get half width.
HHeight = Printer.TextHeight(Msg) /2 ' Get half height.
Printer.CurrentX = Printer.ScaleWidth / 2 - HWidth
Printer.CurrentY = Printer.ScaleHeight / 2 - HHeight
Printer.Print Msg & Printer.Page & "." ' Print.
Printer.NewPage ' Send new page.
Printer.EndDoc ' Print done.
Msg = "Two pages, each with a single, centered line of text, "
Msg = Msg & "have been sent to your printer."
MsgBox Msg ' Display message.
MsgBox "There was a problem printing to your printer."