Select All Sheets VBA code

[markjlang]

Hi there

Not sure of VBA code here. I'd like to select all sheets in VBA. Recoding macro does not work. I need to select all and then set print settings to print one page per sheet.

Many thanks
Mark

 

[pgc01]

Hi Mark

To select all sheets try:

Worksheets.Select

Hope this helps
PGC

 

[Von Pookie]

I don't know about the printing, but selecting all of the sheets should be as simple as using Sheets.Select.

 

[markjlang]

Thanks that's done the trick.

Just wish I could loop through the sheets and set them each to print on one page.

 

[Datsmart]

Sub PrintPageOne()
    Dim ws As Worksheet
    Dim CurSheet As Worksheet
        Set CurSheet = ActiveSheet
        For Each ws In ActiveWorkbook.Worksheets
            ws.Activate
            ActiveSheet.PrintOut _
                From:=1, To:=1, Copies:=1, Collate:=True
        Next ws
        CurSheet.Activate
End Sub

 

[markjlang]

Thanks Datsmart

Unfortunately it doesn't set the print settings to fit one page. Any ideas here?

Cheers
M

 

[Datsmart]

This will set each page setting to print entire sheet on one page. Then printout each page.

Sub PrintPageOne()
    Dim ws As Worksheet
    Dim CurSheet As Worksheet
        Set CurSheet = ActiveSheet
        For Each ws In ActiveWorkbook.Worksheets
            ws.Activate
            With ActiveSheet.PageSetup
                .FitToPagesWide = 1
                .FitToPagesTall = 1
            End With
            ActiveSheet.PrintOut
        Next ws
        CurSheet.Activate
End Sub