Printen via userform.knop

[ronaldje]

Ik zoek een macro om blad 1 uit te printen via de knop op het userform.
En na het printen tevens de ingevulden velden wist.
Wie kan mij helpen ?

Ronald

 

[Wigi]

Voor het printen:

test.printform

zou moeten werken, maar heb het niet getest.

 

[ronaldje]

Niet wat ik bedoel

Hoi Wigi , bedankt voor je reactie , maar ik bedoel dat het fomulier wat ik via test userform invul op blad 1 uitgeprint wordt . En als dat is gebeurd dat de ingevulde velden weer worden gewist zodat iemand na mij weer via het userform. met een leeg blad begint
( behalve de rode tekst )

 

[brandernl]

Private Sub CommandButton1_Click()
test.printform
Unload Me
Worksheets("blad1").Range("B2:B5").ClearContents
End Sub

 

[ronaldje]

Komt in de buurt

Het wissen van het userform is perfect , alleen zal ik de vraag niet duidlijk genoeg gesteld hebben . Ik wil niet het test.userform uit printen maar blad 1 .Dit met een knop op het test.userform .Is dit mogelijk ?

Ronald

 

[brandernl]

zo wordt het gebruikte deel van blad 1 afgedrukt

Private Sub CommandButton1_Click()
    Dim MyPrintRange As Range

    Set MyPrintRange = Worksheets("blad1").UsedRange
    With MyPrintRange
        ActiveSheet.PageSetup.PrintArea = .Address
    End With
    Unload Me
    Worksheets("blad1").PrintOut
    Worksheets("blad1").Range("B2:B5").ClearContents

End Sub

nog even in de opmaak van de knop uitvinken dat de knop ook afgedrukt wordt

 

[ronaldje]

Perfect

Bernhard , dat is ie.
Dank voor je kennis.

Ronald