Blad overslaan met printen

[Marco999]

Hallo,
Ik wil op blad 1 een knop aanmaken om de werkmap af te drukken, dit gaat me nog wel lukken. Maar, ik heb in de map ook 2 bladen staan die ik niet af wil drukken.
Dus, kan ik een knop plaatsen die de werkmap afdrukt maar deze 2 bladen overslaat?

Alvast dank,
Marco

 

[zapatr]

Voorbeeld:
alle bladen printen, behalve blad 2 en blad 4

Sub printmacro()
For x = 1 To Sheets.Count
If x = 2 Or x = 4 Then x = x + 1
Sheets(x).PrintOut
Next x
End Sub

 

[Marco999]

Als ik deze als macro toewijs krijg ik een foutmelding op
Sheets(x).PrintOut

(Methode PrintOut van klasse Worksheet is mislukt.)

 

[zapatr]

Bij mij werkt die macro in elk geval (Excel 2002).
Staat bij jou misschien ingesteld dat variabelen gedeclareerd moeten worden?
Indien ja, voeg dan direct onder "Sub printmacro" toe:
Dim x as integer

 

[Marco999]

Heb het toegevoegd, maar ik krijg nog steeds dezelfde melding.
En ik werk met Excel 2007.

 

[zapatr]

Dan ligt het aan het verschil in een opdracht tussen Excel 2007 en 2002.
Neem even handmatig een printmacro op in 2007, dan zie je meteen wat het moet zijn.
Of wacht even tot iemand reageert die ook met Excel 2007 werkt.