How to create a macro to print a page?

M

Matt

How to create a macro to print a page? How do I creat a macro print different
pages? so I will not have to print the entire book?
 
J

JBeaucaire

This macro will print the active sheet at the moment you run it:
=========
Sub PrintThisSheet()
ActiveSheet.PrintOut copies:=1
End Sub
=========
 
P

Paul C

This will ask for a page range and print the specified range.

You could make a custom form to get both inputs at the same time and you
could also put in code to skip the print step if cancel is selected. This
will crash if both inputs are not given, but this is a quick and easy fix.

Sub Macro2()
x = Application.InputBox(prompt:="Start Page", Type:=1)
y = Application.InputBox(prompt:="End Page", Type:=1)

ActiveWindow.SelectedSheets.PrintOut From:=x, To:=y, Copies:=1
End Sub
 
Top