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.

 

[Tonyson]

It's working OK now
thanks! TommyGun

 

[sman112]

hi there i have done the same type of macro and i need some help with the cancel option how do i have it so the macro jus finishes without a runtime error
thanks

 

[NielsBooij]

i hope i'm in the right spot here, my question.

i use a print macro to print a selection of the activesheet. but i want the number of copies to bedetermend trough a cel on the active sheet.
the code i use is;

Sub MyPrint()
curPrtArea = ActiveSheet.PageSetup.PrintArea
myPrtArea = "W43:AH63"
ActiveSheet.PageSetup.PrintArea = myPrtArea
ActiveSheet.PrintOut , Copies:=( must take digit out of cell C14 )
ActiveSheet.PageSetup.PrintArea = curPrtArea

End Sub

can you help me?