Example

This procedure prints two copies of the current screen, each on a separate piece of paper:

Sub PrintScreenOnePerPage()

 With Session

  .PrintScreen rcPrintScreen, 2

 End With

End Sub

This procedure prints two copies of the current screen on one piece of paper:

Sub PrintScreenTwoPerPage()

  With Session

  .ClosePrinterManually = True

  .PrintScreen rcPrintScreen, 2

  .ClosePrinter

  End With

End Sub