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
 

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

Macro for all Excel Workbooks to print to PDF 2
Printing worksheets 4
Adding new worksheet BEFORE 1st worksheet 3
Excel Move or Copy Stopped Working? 0
Error Message - Macro to Unlink MS Queries from Workbook 0
Excel Copy cells from one worksheet to another workseet - increment row & do again 0
Moving rng of wrkshts to new workbook 6
Userform to Select what worksheets to print 1

Back
Top