See Also Example
Ends the current page and advances to the next.
Syntax
Printer.Newpage
Remarks
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.
EndDoc Method
Page Property
Printer Object
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
ErrorHandler:
MsgBox "There was a problem printing to your printer."
Exit Sub
End Sub