set print area for all sheets using vba

[Kaps_mr2]

Hello,

I am trying to set the print range on each sheet on my workbook. However the following does not work:-

For sh = 1 To output_workbook.Sheets.Count

    output_workbook.Sheets(sh).PageSetup.PrintArea = Range("a1:n28").Address
    output_workbook.Sheets(sh).PageSetup.Orientation = xlLandscape
    
    
     
Next sh

thanks
Kapa

 

[Joe4]

Excellent!
Glad to hear we were able to identify the issue and correct it.