EndDoc Method

See Also81A4SD              Example1W3U1V3>Low

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.

See Also

NewPage Method1UOETVR

Printer ObjectCBQUDQ

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.

   Next I

   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.

   Exit Sub


   MsgBox "There was a problem printing to your printer."

   Exit Sub

End Sub