Print Userform passend op A4

[Norman Scheuter]

Ik heb eerder vragen gesteld betreffend een Userform
Nu wil ik deze met een button kunnen printen.

Dat lukt met deze code

Private Sub CommandButton5_Click()
UserForm1.PrintForm
End Sub

Helaas past het net niet op een A4.

Ben de hele ochtend aan het zoeken en proberen, helaas zonder succes.

Heb deze code ook gevonden, maar weet niet waar deze te plaatsen en of hij dan wel werkt.

With ActiveSheet.PageSetup
    .PaperSize = xlPaperA4
    .Orientation = xlPortrait
    .LeftMargin = Application.CentimetersToPoints(0)
    .RightMargin = Application.CentimetersToPoints(0)
    .TopMargin = Application.CentimetersToPoints(0)
    .BottomMargin = Application.CentimetersToPoints(0)
    .HeaderMargin = Application.CentimetersToPoints(0)
    .FooterMargin = Application.CentimetersToPoints(0)
    .CenterHorizontally = True
    .CenterVertically = False
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = False
End With

 

[emields]

voorbeeldbestandje vergeten?

 

[Norman Scheuter]

Voorbeeldje toegevoegd

 

[OctaFish]

Ik heb eerder vragen gesteld betreffend een Userform

En waarschijnlijk kreeg je ook toen het advies om dat vooral niet te doen: formulieren zijn bedoeld om informatie in te voeren, niet om af te drukken. Daarvoor maak je (eventueel een nieuw) werkblad op waar de gegevens netjes op zijn opgemaakt. En waarvan je de afdrukopties perfect kunt instellen. Je gebruikt toch ook geen vork om je soep te eten?

 

[sylvester-ponte]

Norman, probeer deze eens:

Private Sub CommandButton4_Click()
UserForm1.Zoom = 80
UserForm1.PrintForm
UserForm1.Zoom = 100
End Sub

 

[Norman Scheuter]

En waarschijnlijk kreeg je ook toen het advies om dat vooral niet te doen: formulieren zijn bedoeld om informatie in te voeren, niet om af te drukken. Daarvoor maak je (eventueel een nieuw) werkblad op waar de gegevens netjes op zijn opgemaakt. En waarvan je de afdrukopties perfect kunt instellen. Je gebruikt toch ook geen vork om je soep te eten?

Hoi OctaFish,

Nee, is me niet verteld, ging in die post ook ergens anders over.

Alles heeft een reden, deze optie is niet voor ons, maar voor een klant die deze sheet gaat gebruiken.
Ik wil hem zo weinig mogen speelruimte geven, anders gaat hij zelf prutsen.

En ja, misschien kan het anders, maar dan kan jij dat ook anders aangeven dan zo'n botte opmerking.
Je had me ook een voorbeeld kunnen geven om te laten zien wat in jouw ogen een betere optie is.

Maar goed, Sylvester heeft een goed werkende optie gegeven.

 

[Norman Scheuter]

Norman, probeer deze eens:

Private Sub CommandButton4_Click()
UserForm1.Zoom = 80
UserForm1.PrintForm
UserForm1.Zoom = 100
End Sub

Hoi Sylvester,

Super, dank je wel.
Deze werkt :thumb:

Gr. Norman