Hi all!!

a simple question (just didn't manage to find it on web) - if i have 20 worksheets and on 15 of them 2nd page to right is customized as ready for printing (contains graphs, title, date(),..), how can i send all these 2nd pages from 15 sheets to printing at once??

Thanks in advance!

---------- Post added at 04:59 AM ---------- Previous post was at 04:14 AM ----------

Well, Since it takes time, I came up with this solution, which is totally insufficient but does the job:


Sub Macro1()
Dim i As Integer

For i = 2 To 13
    
    Worksheets(i).Activate
    Range("P1:AD52").Select
    ActiveSheet.PageSetup.PrintArea = "$P$1:$AD$52"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

Next i
End Sub
Anyway, i'm looking for something better. 1st priority - no use of vba (Excel solution), 2nd- if vba, then doing this without every sheet activation. any ideas?