afdruk maccro

[tonsie01]

Hallo

Ik heb een macro proberen te maken die een bepaald aantal bladen afdrukt en komt met printer menu waarin ik b.v. voor de kleuren printer kan kiezen maar de laatste pagina wordt alleen in kleur afgedrukt en de rest niet zou iemand mij hiermee willen helpen ???
.

Sub afdrukken()
'
' afdrukken Macro
'

'
    Sheets("VOORBLAD form").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("INHOUD").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("6. LEIDINGREGISTRATIE").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("12. VenG").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("17. AFWIJKINGSRAPPORT").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("Rug Projectmap").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("Voorblad").Select
    Application.Dialogs(xlDialogPrint).Show
End Sub

 

[spaarie]

Vul zelf de Array aan en test het even

Sub Spaarie()
    Sheets(Array("voorblad form", "inhoud", etc, etc, etc.)).Select
    Application.Dialogs(xlDialogPrint).Show
End Sub

 

[tonsie01]

Hallo het werkt tot het laatste punt dat hij weer terug moet keren naar de sheet voorblad hier geeft hij een fout aan ??

Sub afdrukken1()

    Sheets(Array("voorblad form", "inhoud", "6. LEIDINGREGISTRATIE", "12. VenG", "17. AFWIJKINGSRAPPORT", "Rug Projectmap"))Sheets("Voorblad").Select
    Application.Dialogs(xlDialogPrint).Show
End Sub

 

[tonsie01]

Ik heb het al gevonden door jullie hulp is het toch gelukt bedankt dit is hoe ik het werkend heb

Sub afdrukken()
    Sheets(Array("VOORBLAD form", "VOORBLAD form", "6. LEIDINGREGISTRATIE", "12. VenG", "17. AFWIJKINGSRAPPORT", "Rug Projectmap")).Select
    Application.Dialogs(xlDialogPrint).Show
    Sheets("Voorblad").Select
End Sub