PrintOut problem

[Filips Benoit]

Dear All,

Sorry for my Enghlih !

I have a excel workbook being a having all details obout 1 house te bild.
8 commandbuttons in cellrow1 of columns S>Z prints each another selection of
the rows.
This works OK.

Now 1 group wants to be able to choose the printout between A4 or A3 because
A4 is to difficult to read.

How can I do this in de Code ..

Thanks,

Filip

 

[Bill Renaud]

Try something like the following simple code (untested): (You could design
a form with the various choices.)

Sub SetPaperSize()
Dim strPaperSize As String

strPaperSize = InputBox(Prompt:="Select paper size (A3 or A4):", _
Title:="Select Paper Size", _
Default:="A3")

Select Case strPaperSize
Case "A3"
ActiveSheet.PageSetup.PaperSize = xlPaperA3
Case "A4"
ActiveSheet.PageSetup.PaperSize = xlPaperA4
End Select

'Do printout.
End Sub