Printen_van_aparte_tabbladen_met_printbuttons.xls

[dorlando]

probleempje!
Wie kan me helpen om te ontdekken waarom ik 1 tabblad niet kan uitprinten,als ik deze tabblad selecteer dan krijgt ik de volgende foutmelding in de volgende regel "Then Worksheets(iTel + 1).PrintOut"
Hij heeft gewerkt ,maar het lijkt dat er iets niet helemaal lekker werkt in combinatie van,.....
Wat betekent het eindelijk?

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

 

[Roncancio]

Welke foutmelding krijg je?

Met vriendelijke groet,


Roncancio

 

[dorlando]

in de regel : Then Worksheets(iTel + 1).PrintOut

De ander tabbladen kan ik netjes uitprinten!

 

[Roncancio]

Dat begrijp ik maar ik vroeg welke foutmelding.
Is het de bedoeling dat er meerdere werkbladen geprint moeten kunnen worden?
Indien maar 1 werkblad geprint moet worden volstaat:

Private Sub Cmd_Cancel_Click()
Unload Me
End Sub

Private Sub Cmd_OK_Click()
Worksheets(listbox1.ListIndex + 1).PrintOut
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

Met vriendelijke groet,


Roncancio

 

[dorlando]

De foutmelding is,als ik meerder tabbladen selecteer dan print hij alles behalve die ene blad,dan komt de popup dat hij naar die regel wijst.

 

[Roncancio]

Dat is bizar want als het werkblad niet gevonden wordt dan zou er in het geheel niet geprint worden.
De meest logische verklaring is dat iTel geen 0 is, maar dat blijkt nergens uit de code.

Met vriendelijke groet,


Roncancio

 

[dorlando]

Volgens mij heb ik het ontdekt!
Het heeft met de posities te maken met de worksheet!
Want als je een tabblad weggooit,dan verandert de inhoud postities en werkt de koppeling van de worksheet niet meer.

 

[Roncancio]

Dat zou kunnen maar dat zou betekenen dat de werkbladen worden verwijderd terwijl het de userform nog actief is.

Met vriendelijke groet,


Roncancio