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]

There is other data on the sheets but I don't want that printed. How can i check if there is other code overwriting my print ranges ?

After the code runs, go to the sheets that are not working properly, and manually check to see what the print range is set to on that sheet.

 

[Kaps_mr2]

i get the error "you've selected a single cell for the print area". Even if i clear the print area i get the same message. This is on all sheets.

 

[Joe4]

i get the error "you've selected a single cell for the print area"

When do you get this error?
When trying to view the print area, or trying to run the VBA code?

 

[Kaps_mr2]

I get this error when trying to view the print area (as per your suggestion - which is the sensible thing to do). The code runs with no errors reported.

 

[Joe4]

I get this error when trying to view the print area (as per your suggestion - which is the sensible thing to do). The code runs with no errors reported.

I don't understand why that would be.
I assume that you do not have any hidden, protected, or merged cells on these sheets?

 

[Kaps_mr2]

i have just double checked - no hidden, no merged or protected cells. The workbook is created by the macro.

 

[Joe4]

I am at a loss then, without having access to the workbook.
I am afraid I do not have anything else to offer, as I cannot recreate the issue on my end.

 

[Kaps_mr2]

do you want the workbook ?

 

[Joe4]

If you can upload it to a file sharing site and provide a link to it, I can try downloading it when I am in front of my home computer (not allowed to download things to our work computers).

 

[Kaps_mr2]

i just messaged you.