Userform afdrukken

[Atwist]

Hallo formleden,

Wil graag mijn userform met berekeningen afdrukken, heb hier in het forum een code gevonden van WIGI

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

Hen een knop gemaakt met daar aan de code, als ik op de knop druk krijg ik netjes de melding "Wilt u dit formulier printen?" druk dan op ja krijg nu een scherm om een printer te kiezen kies dus de printer die ik wil en druk op OK maar dan gebeurt er niets.

Wat kan hier de van oorzaak zijn

 

[Warme bakkertje]

Sub tst()
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[Atwist]

Warme bakkertje,

Hellaas werkt het nu ook niet.

Dit heb ik er van gemaakt

Private Sub CommandButton3_Click()
If MsgBox("Wilt u dit formulier printen?", vbYesNo, "") = vbYes Then
     Application.Dialogs(xlDialogPrint).Show

End If
End Sub

 

[Wigi]

En wat krijg je als je de PrintForm methode van een userform gebruikt?

NaamVanDeUserform.PrintForm

 

[Atwist]

Hallo Wigi,

Deze werkt goed, alleen heb ik op mijn userform een multipage staan en deze komt er nu half op papier.
Is het ook mogelijk om alleen de multipage te printen

Heb MultiPage1.printform geprobeerd maar dat gaat niet.

 

[Wigi]

Heb MultiPage1.printform geprobeerd maar dat gaat niet.

Neen dus ;-)

Een mogelijkheid is een 2de userform te hebben, met hetgeen je wil printen, en enkel dat.

Toon de 2de userform, stuur de gegevens door en print af. Unload dan de 2de userform opnieuw.

Wigi

 

[Atwist]

Het was ook te mooi om waar te zijn.

Bedank voor jullie hulp

 

[Warme bakkertje]

Heb je het zo al eens geprobeerd ?

Private Sub CommandButton1_Click()
For i = 0 To 9 'aantal pagina's
Me.MultiPage1.Value = i 'eventueel aanpassen naar de juiste naam van je control
Me.PrintForm
Next
End Sub

 

[Atwist]

Hallo Warme bakkertje,

Het printen op zich is geen probleem ik krijg niet niet de hele pagina van de multipage geprint

Heb 2 voorbeelden als bijlage

Scherm1 is het beeld wat ik graag op papier wil.
Scherm2 is wat ik nu op papier krijg.

 

[Warme bakkertje]

Wat als je de afdrukstand wijzigt in Landscape ipv Portret ?

 

[Atwist]

Is dit ook in VBA te doen

Anders moet ik telkens de printer instellingen wijzigen

 

[Atwist]

Heb het even op handmatig geprobeerd maar dat helpt ook niet

Is er ook een mogelijkheid dat multipage wordt geschaalt naar A4????