NewPage Method

See AlsoFXI2QG              ExampleH1Y6M1>Low

Ends the current page and advances to the next.




The NewPage method advances to the next printer page and resets the print position to the upper-left corner of the new page.

When invoked, NewPage increments the Printer object's Page property by 1.

See Also

EndDoc MethodRFC0FY

Page PropertyBKGOU6

Printer ObjectCBQUDQ

NewPage Method Example

The example uses the NewPage method to begin a new printer page after printing a single, centered line of text on a page.  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