printen met userform en checkBox

[don42]

Hallo Allemaal,

Ik heb een klein userform gemaakt als voorbeeld
heb een file met wel 80 tabbladen
wil hier een selectie uitmaken bv 9 stuks)
die ik vaker uitprint maar dat ik via een userform kan aanvinken wat ik op dat moment nodig heb van die 9 tabbladen
en misschien een afdrukvoorbeeld

hoop dat het duidelijk is en dat er iemand is die weet hoe zoiets in elkaar gezet moet worden
(tabbladen hebben namen en soms nummmers)

mijn voorbeeldje: Bekijk bijlage print_keuze.xlsm

Don

 

[Neuz]

Hey Don,

Ik heb even gekeken naar je voorbeeld documentje maar staat alleen nog maar ene userform in zonder script klopt dat?

Verder is het mij nog niet helemaal duidelijk wil je altijd alleen die 9 tabbladen en daarvan een klein stukje.
Of wil je kunnen kiezen nu alle aanvinken waardoor 9 tabbladen worden afgedrukt en de volgende keer maar bijv. 6

Hoor het graag van je.

Groet Neuz

 

[don42]

Ja dat laatste wil ik graag maak van alle tabbladen mijn 'favorieten'
en idd som print ik ze alle 9 en soms maar 2
ja er staat geen script in wie helpt me op weg

 

[HSV]

Waarom ga je niet verder met je andere form.
De listbox zet je op Multiselect in de eigenschap.

Private Sub CommandButton1_Click()
Dim i As Long
 With ListBox1
    Me.Hide
  For i = 0 To .ListCount - 1
    If .Selected(i) = True Then Sheets(.List(i)).PrintPreview
  Next i
 End With
End Sub

 

[don42]

Hoi harry
Dat zal ook een optie zijn,
Als het niet kan of zeer ingewikkeld met de checbox-en
Ga ik het zeker toepassen
Dacht dat het wel meezou vallen
Heb op het net gekeken
Daar vond ik iets van

if checkbox1 = true then
Code
Exit sub
Else if
if checkbox2 = true then
Code
Exit sub
Else if
If checkbox3 true 
Code
End sub

Enz dat gaat mij nog wel lukken
Maar dan de code onder de command button om het werkend te krijgen het is
Niet deze optie of deze maar en en
het mag ook voor elke optie een print preview zijn dan kan die keuze direct printen
Weg omdat ik er vanuit ga dit niet vaak nodig te hebben als dat de zaak eenvoudiger maakt

Don

 

[Warme bakkertje]

Zorg ervoor dat de namen op je UF overeenkomen met de werkelijke bladnamen, dan kan je deze gebruiken.

Private Sub CommandButton1_Click()
    For i = 1 To 9
        If Me("CheckBox" & i) Then
            Me.Hide
            Sheets(Me("CheckBox" & i).Caption).PrintPreview
        End If
    Next
    UserForm1.Show
End Sub

 

[don42]

Ook bakkertje bedankt voor je oplossing
Ga dat vanavond meteen proberen

 

[don42]

Beide oplossingen werken prima.
bedankt beide, nog een vraagje in de code voor de checkboxen, als er geen geselecteerd wordt komt een foutmelding, logisch natuurlijk maar is dat te omzeilen met een msgbox met mininaal één tabblad selecteren

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    For i = 1 To 9
        If Me("CheckBox" & i) Then
            Me.Hide
            Sheets(Me("CheckBox" & i).Caption).PrintPreview
        End If
    Next
    Unload Me
End Sub

 

[don42]

Ja ik had die UserForm1.Show er al uit gehaald ( 'UserForm1.Show)
dat werkte ook bleef de UF wel staan maar geen fout melding, nu verdwijnt het

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    For i = 1 To 9
        If Me("CheckBox" & i) Then
            Me.Hide
            Sheets(Me("CheckBox" & i).Caption).PrintPreview
        End If
    Next
    If UserForm1.Visible = False Then
        For i = 1 To 9
            Me("CheckBox" & i) = False
        Next
        UserForm1.Show
    End If
End Sub

 

[don42]

Heb er nog wat aan gepruts, en het werkt goed heb er een checkbox bij weten te zetten voor een preview

Private Sub CommandButton1_Click()
If CheckBox9 = True Then
    For i = 1 To 8
        If Me("CheckBox" & i) Then
            Me.Hide
            Sheets(Me("CheckBox" & i).Caption).PrintPreview
        End If
    Next
    If UserForm1.Visible = False Then
        For i = 1 To 8
            Me("CheckBox" & i) = False
            Me.Hide
        Next
        UserForm2.Show
    End If
    Else
       For i = 1 To 8
        If Me("CheckBox" & i) Then
            Me.Hide
            Sheets(Me("CheckBox" & i).Caption).PrintOut
        End If
    Next
    If UserForm1.Visible = False Then
        For i = 1 To 8
            Me("CheckBox" & i) = False
        Next
        UserForm2.Show
    End If
    End If
    End Sub

nu had ik alleen nog graag een optie als er geen checkbox 1t/m 8 = geselecteeerd
een msgbox met "je hebt geen bla bla"

is dat mogelijk
wat is de code voor geen checkbox geselecteerd?

don

 

[HSV]

Zet er bv, een tellertje tussen.

For i = 1 To 8
        If Me("CheckBox" & i) Then
 [COLOR=#FF0000]  y = y + 1[/COLOR]
            Me.Hide
            Sheets(Me("CheckBox" & i).Caption).PrintOut
        End If
  Next
[COLOR=#FF0000]if y = 0 then msgbox "bla bla"[/COLOR]

 

[don42]

Toppie
werkt super!
Bedankt