PrintOut problem

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Filips Benoit - 09 Nov 2007 10:33 GMT

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

Reply to this Message

Bill Renaud - 10 Nov 2007 06:20 GMT

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

Signature

Regards,
Bill Renaud

Reply to this Message