Userform printen

[ZZ1]

Hallo,

Ik probeer met een commandbutton een userform te printen.
De volgende code heb ik gevonden/geschreven:

A = MsgBox("Wilt u dit formulier printen?", vbYesNo, "")

If A = vbYes Then
    Application.Dialogs(xlDialogPrinterSetup).Show
    Printer = "Kyocera FS-C5200DN Color"
    Me.Print
End If

If A = vbNo Then
End If
End Sub

Alles gaat goed, ik krijg de messagebox voor bij ja komt het dialog ervoor met de keuze voor de printer en bij ok gaat het verkeerd. Ik heb via help al gezocht maar kan het niet vinden...

Wie weet raar en kan me opweg helpen??

Alvast bedankt!!

 

[Wigi]

If MsgBox("Wilt u dit formulier printen?", vbYesNo, "") = vbYes Then
    Application.Dialogs(xlDialogPrinterSetup).Show
End If

 

[ZZ1]

Hallo,

Ik ben al een tijdje aan het proberen met verschillende codes om mijn userform te printen.
Wigi: jou code werkt wel, er zit een maar aan...

Ik heb een userform wat je kunt scrollen, hij print alleen dat gene wat je op dat moment ziet en niet het volledige userform.
Weet iemand hier een oplossing voor...?? Zodat je het volledige userform kunt printen??
En dan ook nog op liggend.

Of zou je dmv checkboxen kunnen aanvinken welke regels er moeten worden uitgeprint?


Hoor het graag!!
Alvast bedankt!!