NewPage Method Example

This 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, and then press F5 and click the form.

Private 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 one-half width.
      HHeight = Printer.TextHeight(Msg) /2   ' Get one-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
ErrorHandler:
   MsgBox "There was a problem printing to your printer."
   Exit Sub
End Sub