De verborgen tabbladen niet uitprinten

[dorlando]

Hallo,
Ik gebruikt deze macro om alle tabbladen te selecteren om daarna uit te printen!
Als ik deze macro gebruikt zie ik ook de verborgen tabbladen,maar dat wil ik niet.
Is er een mogelijkheid om dit te wijzigen?




Private Sub Cmd_Cancel_Click()
Unload Me
End Sub

Private Sub Cmd_OK_Click()
Dim iTel As Integer
For iTel = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iTel) Then Worksheets(iTel + 1).PrintOut
Next

End Sub

Private Sub ToggleButton1_Click()

End Sub

Private Sub Image1_Click()

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
Dim iWS As Integer
With ListBox1
.Clear
For iWS = 1 To Worksheets.Count
.AddItem Worksheets(iWS).Name
Next
End With
End Sub

 

[Roncancio]

Private Sub Cmd_Cancel_Click()
Unload Me
End Sub

Private Sub Cmd_OK_Click()
Dim iTel As Integer
For iTel = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iTel) Then Worksheets(iTel + 1).PrintOut
Next

End Sub

Private Sub UserForm_Initialize()
Dim iWS As Integer
With ListBox1
.Clear
For iWS = 1 To Worksheets.Count
    If Worksheets(iWS).Visible = True Then .AddItem Worksheets(iWS).Name
Next
End With

End Sub

De verborgen werkbladen worden niet meer in de lijst getoond.

Met vriendelijke groet,


Roncancio

 

[dorlando]

Bedankt het werk perfect.
Hoe kan ik eindelijk zelf bepalen welke tabbladeren ik wil uitprinten ?
Welke formule is dat?
Gr Dorlando

 

[Roncancio]

Dat is geen formule, maar de betreffende werkbladen verbergen of niet in de lijst selecteren.

Met vriendelijke groet,


Roncancio