Afdrukvoorbeeld weergeven afhankelijk van aangevinkte checkboxes

[tThye]

Beste mensen,

Mijn vraag lijkt mij relatief simpel, maar ik kom er helaas niet uit getuige deze vraag.

Ik heb, als voorbeeld, een leeg excel blad met daarin zeven tabbladen (Blad1, Blad2, ..., Blad 7). In 'Blad1' heb ik zeven checkboxen staan met dezelfde naam als de tabbladen en een knop 'Printen'. Nu wil ik afhankelijk van de aangevinkte checkboxen het samengevoegde afdrukvoorbeeld van de geselecteerde bladen zien.

Stel ik heb Blad1, Blad3 en Blad 7 aangevinkt, dan wil ik wanneer ik op de knop 'Printen' klik deze drie bladen in het afdrukvoorbeeld zien.

Kan iemand mij uit de brand helpen?

Alvast hartelijk dank.

Groeten, Mark

 

[wampier]

Het kan wel, maar je hebt wel een aantal beperkingen:

lege pagina's worden nooit gepreviewd en worden altijd overgeslagen.

Je moet een array bouwen met daarin de geselecteerde pagina's en dan kun je via:

Sheets(array).PrintPreview

je doel bereiken.

 

[tThye]

Het kan wel, maar je hebt wel een aantal beperkingen:

lege pagina's worden nooit gepreviewd en worden altijd overgeslagen.

Je moet een array bouwen met daarin de geselecteerde pagina's en dan kun je via:

Sheets(array).PrintPreview

je doel bereiken.

Dag wampier, bedankt voor je reactie. De code "array" heb ik nooit gebruikt, dus zou je een voorbeeld kunnen geven hoe ik de code op zou moeten bouwen. Op deze manier gaat het mij namelijk niet lukken.

Alvast bedankt.

 

[wampier]

Dat is een beetje afhankelijk hoe je checkboxen zijn genoemd en toegepast. Een voorbeeldje is misschien handig.

Maar als de waarden voorhanden zijn (geen garantie dus, want ik ken je opzet niet!). Ik ga bovendien uit van selectie op nummer, niet op naam, maar de werkwijze is exact hetzelfde.

Dim sheetarray() As Integer
Dim count As Integer
Dim i As Integer
Dim vakje As Object
ReDim sheetarray(0)
count = 0

Set vakje = Sheets(1).Shapes("Selectievakje 1").ControlFormat
If vakje.Value = 1 Then
    ReDim Preserve sheetarray(UBound(sheetarray) + 1)
    sheetarray(count) = 1
    count = count + 1
End If
Set vakje = Sheets(1).Shapes("Selectievakje 2").ControlFormat
If vakje.Value = 1 Then
    ReDim Preserve sheetarray(UBound(sheetarray) + 1)
    sheetarray(count) = 2
    count = count + 1
End If
Set vakje = Sheets(1).Shapes("Selectievakje 3").ControlFormat
If vakje.Value = 1 Then
    ReDim Preserve sheetarray(UBound(sheetarray) + 1)
    sheetarray(count) = 3
    count = count + 1
End If
'
''' etc tot 7
'
If count Then
    ReDim Preserve sheetarray(count - 1)
    Sheets(sheetarray).PrintPreview
End If