Getting away from selecting everything all the time, part 105...

[nigelandrewfoster]

When I amend the recorded code

    Sheets("PRODUCTION").Select
    Range("B1:K43").Select
    ActiveSheet.PageSetup.PrintArea = "$B$1:$K$43"
    ActiveWindow.SelectedSheets.PrintOut copies:=1

    Range("B45:K87").Select
    ActiveSheet.PageSetup.PrintArea = "$B$45:$K$87"
    ActiveWindow.SelectedSheets.PrintOut copies:=1

    Range("B89:K131").Select
    ActiveSheet.PageSetup.PrintArea = "$B$89:$K$131"
    ActiveWindow.SelectedSheets.PrintOut copies:=1

    Range("B133:K176").Select
    ActiveSheet.PageSetup.PrintArea = "$B$133:$K$176"
    ActiveWindow.SelectedSheets.PrintOut copies:=1

To this:

Sheets("PRODUCTION").PageSetup.PrintArea = "$B$1:$K$43"
    ActiveWindow.SelectedSheets.PrintOut copies:=1

    Sheets("PRODUCTION").PageSetup.PrintArea = "$B$45:$K$87"
    ActiveWindow.SelectedSheets.PrintOut copies:=1

    Sheets("PRODUCTION").PageSetup.PrintArea = "$B$89:$K$131"
    ActiveWindow.SelectedSheets.PrintOut copies:=1

    Sheets("PRODUCTION").PageSetup.PrintArea = "$B$133:$K$176"
    ActiveWindow.SelectedSheets.PrintOut copies:=1

The printer only produces 4 copies of the last range, and not each in turn. What am I doing wrong, please?
Thanks

 

[Andrew Poulsom]

Try like this:

With Sheets("PRODUCTION")
    .PageSetup.PrintArea = "$B$1:$K$43"
    .PrintOut copies:=1
End With

 

[nigelandrewfoster]

It worked! Thank you, Andrew. Only if you have time, can you tell me why my method didn't work? It looked ok in theory...!

 

[Andrew Poulsom]

You were using ActiveWindow. Setting the PrintArea for a worksheet doesn't make it active.

 

[nigelandrewfoster]

Thanks for that.
N