Printen met voorbeeld

[don42]

Hallo allemaal,

heb een probleempje met printen
vanuit een ListBox

Private Sub CommandButton1_Click()
Worksheets(ListBox1.Value).PrintOut
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim n As Integer
Do
n = n + 1
ListBox1.AddItem Sheets(n).Name
Loop Until n = Worksheets.Count
End Sub

Haal via bovenstaande code alle tabbladen in een listbox, als ik nu 1 selecteer dan wordt deze gelijk geprint,
maar wil graag eerst een preview zien, met de toevoeging preview = True (achter PrintOut) krijg ik idd een afdrukvoorbeeld te zien
maar de userform ook en dan gaat het mis!
wie heeft hier de oplossing voor
Eigellijk (dat zou het fijnste zijn) moet het userform even verdwijnen voor de preview en egaal wat er gekozen wordt print of sluiten weer zichtbaar worden
het is aan u....

Don

 

[HSV]

Private Sub CommandButton1_Click()
[COLOR=#FF0000]me.hide[/COLOR]
Worksheets(ListBox1.Value)[COLOR=#FF0000].printpreview[/COLOR]
End Sub

 

[don42]

Hallo Harry

Bedankt maar weer het werkt perfect,
met de code die ik gebruik staan alle sheets in de listbox!
ook die wat verborgen zijn
als je op zo.n nummer klikt krijg je uiteraard een fout melding
zou graag een msgbox hebben met iets van "tabblad niet in gebruik"

is dat mogelijk

 

[HSV]

Zorg ervoor dat die niet in de lijst komen, behoef je ook geen msgbox.

Private Sub UserForm_Initialize()
Dim i As Long
 For i = 1 To Sheets.Count
    If Sheets(i).Visible Then
      ListBox1.AddItem Sheets(i).Name
    End If
  Next i
End Sub

 

[don42]

Ja daar heb je natuurlijk gelijk in
hey helemaal top heb de code meteen aangepast
Thanks! :thumb: Don