pagesetup all sheets

[bak]

How can I set al pagesetups to: wide 1 and tall 1
In al sheets in combinations with:

Dim Rng As String
Dim Wks As Worksheet
Rng = "$AF$2:$AU$66,$AW$2:$BG$42"
For Each Wks In Worksheets
Wks.PageSetup.PrintArea = Rng
Next Wks
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub

 

[Andrew Poulsom]

Try:

For Each Wks In Worksheets
    With Wks.PageSetup
        .PrintArea = Rng
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
Next Wks

 

[Trevor G]

Try this as a manual option. Create the page settings on your first sheet, then group the other sheets (including the first), select the pagesetup option and then click OK it should apply all the settings you added from the first sheet to the others you have grouped.

If you dont want to do that manual try this

Sub SheetsSetup()
For Each Ws In Worksheets
With Ws.PageSetup
.PrintArea = Rng
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next Ws
End Sub

 

[bak]

Oke thanks for the fast reaction:D

One little other question. What if I want to fit on one page? replace the 1 for....?

 

[Andrew Poulsom]

The existing code fits to one page.

 

[bak]

There is now one page that has empty space on the page. Maybe zoom that page?

 

[Andrew Poulsom]

Fit to page doesn't increase the zoom above 100%. You will have to do that manually. If you record a macro while doing it you will get some VBA code.

 

[bak]

Thanks!!