Beste,
In mijn project heb ik een pagina die door 1 afdeling op A4 wordt geprint en door de andere afdeling op A3.
In eerste instantie was dit alleen op A4 printen en daardoor had ik de volgende formule gebruikt.
Nu wil ik echter dat door gebruik van een userform (ik heb een concept al opgezet) er een keuze kan worden gemaakt tussen A3 of A4 printen en hoevaak dit bereik (A8:AB60) geprint dient te worden.
Ik weet nu alleen niet hoe ik te werk moet gaan met If en then vba codes in dit geval.
Zouden jullie me kunnen helpen?
Het is wel de bedoeling dat het bereik op 1 pagina past. Maar dat het uiteraard wel wordt vergroot op A3 formaat als er in A3formaat geprint dient te worden.
Alvast bedankt.
In mijn project heb ik een pagina die door 1 afdeling op A4 wordt geprint en door de andere afdeling op A3.
In eerste instantie was dit alleen op A4 printen en daardoor had ik de volgende formule gebruikt.
Code:
Sub Knop6_BijKlikken()
With ActiveSheet
.PageSetup.PrintArea = "$A$8:$AB$60"
.PageSetup.Orientation = xlPortrait
.PageSetup.Zoom = False
.PageSetup.FitToPagesTall = 1
.PageSetup.FitToPagesWide = 1
.PrintOut , Copies:=4
End With
End Sub
Nu wil ik echter dat door gebruik van een userform (ik heb een concept al opgezet) er een keuze kan worden gemaakt tussen A3 of A4 printen en hoevaak dit bereik (A8:AB60) geprint dient te worden.
Ik weet nu alleen niet hoe ik te werk moet gaan met If en then vba codes in dit geval.
Zouden jullie me kunnen helpen?
Het is wel de bedoeling dat het bereik op 1 pagina past. Maar dat het uiteraard wel wordt vergroot op A3 formaat als er in A3formaat geprint dient te worden.
Alvast bedankt.
Bijlagen
Laatst bewerkt: