printen uit keuzemenu

[Danielle22]

Hallo allemaal,

Is het ook mogelijk om uit een keuzemenu te printen?

Dus als ik in de userform bijvoorbeeld “test 1” kies en dan op print druk dat die blad test 1 dan ook gaat printen?

Zie ook bijlage.

Alvast heel erg bedankt voor de reactie’s.

Groetjes,

Danielle
Bekijk bijlage voorbeeldprint.xls

 

[Niels28]

achter de knop print

Sheets(KolomB.Value).PrintOut

Niels

 

[cow18]

Private Sub CommandButton1_Click()
  Dim sh       As Worksheet
  If KolomB.ListIndex = -1 Then
    MsgBox "niets gekozen"
  Else
    On Error Resume Next
    Set sh = Worksheets(KolomB.Value)
    If sh Is Nothing Then
      MsgBox KolomB.Value & " verwijst niet naar een werkblad"
    Else
      'sh.PrintOut
      sh.PrintPreview
    End If
  End If
End Sub

 

[Danielle22]

Top bedankt:thumb:

De codes doen het perfect.

Groetjes,

Danielle