Printuserform werkt niet meer goed

[henk44444]

Beste allemaal,

Ik heb een printknop, macro, die niet meer goed werkt.
De bedoeling is; dat wanneer de macro ingedrukt wordt, de gebruiker tabbladen kan selecteren die vervolgens geprint moeten worden.
Door te klikken op ''afdrukken'', komt het ''normale'' printdashboard in beeld, waarna de gewenste printer, kleur, formaat etc. geselecteerd kunnen worden..

Echter print hij nu alléén het titelblad(Ook wanneer ik dus andere tabbladen selecteer)....

Private Sub CmdPrint_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub
Private Sub UserForm_Initialize()
Dim sh As Worksheet
With LstPrint
    .Clear
    For Each sh In Worksheets
        .AddItem sh.Name
    Next
End With
End Sub

 

[HSV]

Je houdt nog ergens informatie achter omtrent 'LstPrint'.