Setting Excel Spreadsheet to A3 printer friendly

[joey1984]

Hi,

I have an Excel worksheet which is sent to several stakeholders. Some stakeholders want to print out the spreadsheet but want to be able to print it out as A3 automatically. In other words make the spreadsheet i send out as A3 printer friendly.

The issue is my PC does not have a Printer that has A3 paper size option. So when I try to run macro queries such as

[FONT=&quot]ActiveSheet.PageSetup.Pape[/FONT]<wbr style="font-size: 16px; font-family: "Nunito Sans", sans-serif;">[FONT=&quot]rSize = xlPaperA3

[/FONT][FONT=&quot]Run-time error '1004': Unable to get the [/FONT][FONT=&quot]PaperSize[/FONT][FONT=&quot] property of the PageSetup class

[/FONT]Can someone please advise what macro query i can use to be able to set the spreadsheet as A3 printer friendly so when i send it out others who do have A3 printers can print it out?

 

[Dryver14]

you could try above it

On error goto Handler

Handler: ActiveSheet.PageSetup.Pape<wbr style="color: rgb(51, 51, 51); background-color: rgb(250, 250, 250); font-size: 16px; font-family: "Nunito Sans", sans-serif;">rSize = xlPaperA4
Resume next

 

[joey1984]

you could try above it

On error goto Handler

Handler: ActiveSheet.PageSetup.Pape<wbr style="color: rgb(51, 51, 51); background-color: rgb(250, 250, 250); font-size: 16px; font-family: "Nunito Sans", sans-serif;">rSize = xlPaperA4
Resume next

You mean

Handler: ActiveSheet.PageSetup.Pape<wbr style="color: rgb(51, 51, 51); background-color: rgb(250, 250, 250); font-size: 16px; font-family: "Nunito Sans", sans-serif;">rSize = xlPaperA4
Resume next
ActiveSheet.PageSetup.Pape<wbr style="color: rgb(87, 65, 35); font-size: 16px; font-family: "Nunito Sans", sans-serif;">rSize = xlPaperA3

If yes, why is the first line xlPaperA4 when i want it as A3?

 

[joey1984]

Anyway when I tried


Handler: ActiveSheet.PageSetup.PaperSize = xlPaperA4
Resume Next
ActiveSheet.PageSetup.PaperSize = xlPaperA3


I got a Runtime 20 error resume with error message. Any thing i need to change above?

 

[Dryver14]

No before the line ActiveSheet.PageSetup.PaperSize = xlPaperA3 type on error goto handler

before endsub type Handler: ActiveSheet.PageSetup.PaperSize = xlPaperA4
Resume Next

 

[joey1984]

Sorry im a bit confused. You mind providing the FULL query i need to type. Apologies again.

 

[Dryver14]

Does this help any

Sub Printerthings()


' Lots of Code
    
    On Error GoTo Handler
    ActiveSheet.PageSetup.PaperSize = xlPaperA3
    
'More code


Handler: ActiveSheet.PageSetup.PaperSize = xlPaperA4
Resume Next
End Sub

 

[joey1984]

Ok I tried running that. No errors this time.

When I went to page setup it shows A4 same with print preview.

Would this automatically adjust to A3 when someone else with an printer that has A3 opens this file?

 

[Dryver14]

what this is saying is print in A3, if it cannot or throws an error then print in A4 instead

 

[joey1984]

Ok so when i send this spreadsheet off to others, they will need to run the macro?

Because i am saving the excel as a macro free workbook.