print macro

[Tonyson]

I did a search on this board for a print macro and found one that was submitted by Ian Mac back in 2/21/2002:


Sub PrintPages()
Dim f, t As Integer

f = InputBox("Select start page 1 to 10", "Print From")
t = InputBox("Select end page " & f & " to 10", "Print To")

If MsgBox("Do you wish to print pages " & f & " to " & t, vbYesNo, "Confirm print") = vbYes Then
ThisWorkbook.PrintOut f, t
Else
End If

End Sub

What I would like your help in editing this macro to print a worksheet not workpages with with the same MsgBoxes to print 1 to 11 pages in my worksheet. :o

[DRJ]

replace

ThisWorkbook.PrintOut f, t

with

Sheets("Sheet1").PrintOut f, t

[Tonyson]

I get a Run-time error '9':
Subscript out of range

[TommyGun]

Change the Sheet name to a valid sheet...or just use...

ActiveSheet.PrintOut f, t

[Tonyson]

That worked great
Thank you TommyGun and you too DRJ.

[Tonyson]

One more question: I want to add this:

copies = Application.InputBox("How many copies ?", Type:=1)

Where do I insert this if it works.

[Tonyson]

Where and how can I enter the number of copies I want in this macro.

[TommyGun]

ActiveSheet.PrintOut From:=f, To:=t, Copies:=copies

[Tonyson]

Thanks!
I chanted
ActiveSheet.PrintOut From:=f, To:=t, Copies:=copies
to
ActiveSheet.PrintOut From:=f, To:=t, Copies:=3
and it prints 4 copies instead of 3. Any reason why?
:o

[TommyGun]

According to Microsoft Help, the copies property sets the number of copies to print...

Originally Posted by Microsoft Help

Copies Optional Variant. The number of copies to print. If this argument is omitted, one copy is printed.

Are you sure it is printing an extra copy?