printen preview

[don42]

Hallo ik heb onderstaande code in elkaar geknutseld

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Dim i As Long
Dim v As Long
 With ListBox1
    Me.Hide
  For i = 0 To .ListCount - 1
    If .Selected(i) = True Then Range("$e$2") = (.list(i))
    If .Selected(i) = True Then Sheets("rooster op naam").PrintOut Copies:=1, collate:=True, preview:=True
        Next i
 End With
  Unload Me
  OptionButton1 = True
  Else
   With ListBox1
    Me.Hide
  For v = 0 To .ListCount - 1
    If .Selected(v) = True Then Range("$e$2") = (.list(v))
    If .Selected(v) = True Then Sheets("vakantie op naam").PrintOut Copies:=1, collate:=True, preview:=True
        Next v
 End With
  Unload Me
  OptionButton1 = True
  End If
  End Sub

als ik nu via mijn UF 1 of meer namen selecteer worden er op 2 tabbladen gegevens van die persoon getoond (rooster normaal en vakantie)
ik heb het zo ingesteld dat er eerst een preview komt
maar hoe doe ik het nu als ik meteen wil laten printen ZONDER preview middels een checkBox in mijn UF
om dat er naar twee voorwaarde gekeken moet worden zit ik weer vast
If OptionButton1 = True and if checkBox = true then
If .Selected(v) = True Then Sheets("vakantie op naam").PrintOut Copies:=1, collate:=True, preview:=false
else
If .Selected(v) = True Then Sheets("vakantie op naam").PrintOut Copies:=1, collate:=True, preview:=True
zoiets

Don

 

[VenA]

Volgens mij heb je voor iemand die wat wil bereiken met excel een onnatuurlijke afkeer om eens de zoekfunctie te gebruiken. Welke parameter zal je moeten vervangen?

 

[don42]

Ik weet dat ik true voor false kan vervangen. Dat is ook het probleem niet
Wil graag de optie om te kiezen gelijk printen of eerst een preview
Middels een checkbox
En ik ben echt aan het zoeken op het net
Heb het ook met mijn code voor elkaar dat er gekozen kan worden tussen de twee tabjes om te printen
Maar het probleem is die ene optie erbij te krijgen.

 

[VenA]

Op wel net zoek je dan? Nergens printOut tegen gekomen???

 

[don42]

Ik snap niet waarom je dit zo zegt! Als ik met bovenstaande code maar 1 tabblad had wat geprint moest worden kreeg ik het
Echt wel voor elkaar om meteen te printen danwel eerst een preview
Mijn probleem in deze is dat er twee tabladen zijn normaal en vakantie en ik dus wil selecteren welke van de twee geprint moet worden en dan ook nog de keus gelijk of eerst preview.
Vind ik dat volgens jou in de optie printout?

Don

 

[HSV]

Ik maak geen uitgebreide bestanden na.
Ik zie ook nergens in de code een checkbox.

Misschien kom je hier verder mee.

If .Selected(i) = True Then Sheets("rooster op naam").PrintOut Copies:=1, collate:=True, [COLOR=#FF0000]preview:=optionbutton1[/COLOR]

 

[don42]

HSV
Dit was precies wat ik nodig had, het werkt perfect
kon het op het internet niet vinden (zal er ongetwijfeld te vinden zijn)
Bedankt voor de moeite ben er blij mee

Don

 

[HSV]

Ik zoek ook niet op internet (beetje logisch nadenken geeft me meer voldoening).

Graag gedaan.