afdrukken werkbladen met formulierbesturingselementen

[eric20]

Hallo,

Ik wil graag weten hoe ik kan meerdere werkbladen kan selecteren of af te drukken.
Dit zou ik graag willen doen: door een vinkje achter het/de te selecteren werkblad(en) te zetten en vervolgens het veld afdrukken aanklikken.
Geen kennis van VBA.


Zie bijgevoegd bestandje

Groet

Eric

 

[Cobbe]

Zo iets?

 

[Cobbe]

Of zo

 

[eric20]

afdrukken werkbladen o.b.v. selectie

Dank je wel voor je snelle reactie.

Optie 2 is wat ik graag wil doen.
De af te drukken werkbladen wil ik graag verbergen.
Door deze aan te vinken, worden de bladen afgedrukt.

Echter ik probeer jouw bestandje (met 2 vinkjes) af te drukken.
Ik krijg maar 1 pagina (de inhoudsopgave) afgedrukt.
Wel zie ik bij afdrukvoorbeeld de beide af te drukken pagina's.

Moet ik mijn printinstructie aanpassen?

Groet

Eric

 

[Cobbe]

Als je je tabs wil verbergen moet je de code zo aanpassen:
en de opdracht Printpreview wijzigen in PrintOut

Sub cobbe()
Application.ScreenUpdating = False
With Sheets("rapportage 2")
 For Each s In .Range("E6:E" & .Range("A" & .Rows.Count).End(xlUp).Row)
  If s = True Then
   sh = s.Offset(, -4)
    With Sheets(sh)
     .Visible = True
      .[COLOR="#FF0000"]PrintPreview[/COLOR]
     .Visible = False
    End With
  End If
 Next
End With
Application.ScreenUpdating = True
End Sub

 

[eric20]

afdrukken werkbladen o.b.v. selectie

Het verbergen zal ik doen op de door jou aangegeven wijze.
Heb je nog een oplossing voor het printprobleem?

 

[Cobbe]

Het staat er toch aangegeven PrintPreview --> PrintOut

De bladen kan je handmatig verbergen.