Afdrukken ongeacht papierformaat

[Stokkie2000]

Ik heb een excelblad met daarop een planning. Nu zijn er mensen die de planning uitprinten op verschillende printers met verschillende papierformaat (A4 en A3).
Nu wil ik een knop maken (knop is reeds gemaakt) met een commando die de planning afdrukt op A4 en A3. dit moet dus niets uitmaken. Oftwel de tekst wordt groter op A3 en kleiner op A4 (het papier is liggend georienteerd).
Hoe kan ik dit oplossen? Alvast bedankt.

 

[deSmid]

Misschien een macro opnemen waarin je het afdrukbereik bepaald en daarna kiest voor afdrukvoorbeeld, vervolgens instellingen en het keuzerondje formaat aanpassen aan 1 bij 1 pagina?

Zoiets als:
Sub Printopformaat()
'
' Printopformaat Macro
'

'

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4 '(paginaformaat)'
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

De opdracht PrintPreview kan je laten vervallen en direct kiezen voor printen. Het formaat van de Pagina moet mogelijk wel worden ingevoerd.

Groet,
deSmid.