How to create a macro to print a page?

  • Thread starter Thread starter Matt
  • Start date Start date
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?
 
This macro will print the active sheet at the moment you run it:
=========
Sub PrintThisSheet()
ActiveSheet.PrintOut copies:=1
End Sub
=========
 
This macro will print the active sheet at the moment you run it:
=========
Sub PrintThisSheet()
ActiveSheet.PrintOut copies:=1
End Sub
=========
 
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
 
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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Not Printing Hidden Pages 1
How to assign PRINT option to execute a macro 3
Print Macro Help 1
Set Print Area & print on one page 2
VBA Printing Custom Footer on all but last page 2
macro to print sheet2 without open sheet2 1
macro data above page break - no a footer 1
I trying to develop a macro to print my worksheets 1

Back
Top