eigen print macro wijzigen

[mth]

Hallo exel kenners.

Dankzij dit forum hebik een print macro opgenomen.
Deze macro print het hele werkmap bestaande uit 12 bladen.
Nu is het zo dat hiervan 1 blad niet uitgeprint hoeft te worden.
Kan ik dit doen zonder dat ik de macro opniew moet opnemen.

Nu ziet de macro er zo uit.

Sub afdrukken()
'
' afdrukken Macro
' De macro is opgenomen op 11-5-2008 door Michel te Hofstee.
'

'
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub


Het blad waar het om gaat heet blad 2 uren

Hoop dat jullie zo voldoende informatie hebben?

Gr mth

 

[Wigi]

Zet het in een kleine lus:

Sub bladenprinten()

    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        
        If ws.Name <> "naamvanhetbladdatjenietprint" Then
            ws.PrintOut
        End If
        
    Next

End Sub

Wigi

 

[mth]

Hallo,

Bedankt voor je reactie.
ik heb jou macro gebruikt, maar hij print het 2e blad wel uit.
Ik zal wel iets verkeerd hebben gedaan maar kom er niet uit.
zou je nog eens willen kijken?

Sub afdrukken()
'
' afdrukken Macro
' De macro is opgenomen op 11-5-2008 door Michel te Hofstee.
'
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> "Blad2(uren)" Then
ws.PrintOut
End If

Next

End Sub

Gr michel

 

[Haaren101]

If ws.Name <> "Blad2(uren)" Then

Ik denk dat je hier moet zetten:

If ws.Name <> "uren" Then

Ron

 

[Wigi]

Wat ik aangaf als naamvanhetbladdatjenietprint is inderdaad de naam van dat blad zoals het staat onderaan op de bladtab.

 

[mth]

Heren thanks voor jullie antwoorden.
Ik heb de naam veranderd en toen was het goed.

THANKS

 

[Wigi]

Dan mag de vraag nog op opgelost komen aub.

 

[mth]

Bij deze.

En nogmaals THANKS:thumb: