Printing several worksheets

  • Thread starter Thread starter fredrik
  • Start date Start date
F

fredrik

I have several workbooks with differently named worksheets. The one thing
they all have in common is that sheet no 1 is called "Formula" and the last
one called "End".
I'm looking for a macro to move between sheets and print them all between
the first and the last sheet.
Can anyone help?
 
Hi
This will print all of the sheets in an open workbook

Sub printer()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PrintOut
Next
End Sub

regards
Paul
 
Try this idea

Sub PrintSheetsByIndexSAS()
fs = Sheets("formula").Index
ls = Sheets("end").Index
'MsgBox fs
'MsgBox ls
For i = fs To ls
Sheets(i).PrintPreview
Next i
End Sub
 
Back
Top