Selectie tabbladen printen in zwart/wit

[Albatros]

Hoi,

Via onderstaande code lukt het niet om alle tabbladen in zwart/wit te printen.

Sub Prt_ZW()
'
' Prt_ZW Macro

    Sheets(Array("KV ", "TV", "PV", "VV ", "OV", "MV")).Select
    Sheets("KV ").Activate
    ActiveSheet.PageSetup.BlackAndWhite = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Blad1").Select
    Range("A1").Select
End Sub

Heeft iem. de oplossing hiervoor? (via try and error, ben ik anders zo door mijn inktvoorraad heen )

Albatros

 

[Wigi]

Maak het jezelf gemakkelijk en schrijf een lus:

Sub Prt_ZW()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.PageSetup.BlackAndWhite = True
        ws.PrintOut Copies:=1, Collate:=True
    Next
End Sub

Wigi

 

[Albatros]

Wigi,

Bedankt voor je reactie, echter ik wil niet alle tabbladen geprint hebben, alleen de geselecteerde

Albatros

 

[snb]

Je kunt ook gewoon nadenken:
In jouw code verander je de selektie 4 keer
met sheets(array(.... slecteer je alle werkbladen uit de array;
dan moet je óf de overige akties op die selektie uitvoeren:

Sub Prt_ZW()
  Sheets(Array("KV ", "TV", "PV", "VV ", "OV", "MV")).Select
  Selection.PageSetup.BlackAndWhite = True
  Selection.PrintOut 
End Sub

óf de onderstaande methode gebruiken.

Sub Prt_ZW()
  With Sheets(Array("KV ", "TV", "PV", "VV ", "OV", "MV"))
     .PageSetup.BlackAndWhite = True
     .PrintOut 
  End with
End Sub

 

[Albatros]

snb,

Bedankt voor je reactie.
Echter beide constructies geven een foutmelding.

Albatros

 

[Albatros]

Hoi,

Omdat ik helaas niet verder kom met de "array" constructie, heb ik er iets van gemaakt wat neerkomt op het volgende::

Sub PrtTabblad_ZW()
'
    Application.ScreenUpdating = False
    Sheets("Blad2").Select
    ActiveSheet.PageSetup.BlackAndWhite = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Blad3").Select
    ActiveSheet.PageSetup.BlackAndWhite = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Blad4").Select
    ActiveSheet.PageSetup.BlackAndWhite = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Blad1").Select
    Application.Goto Reference:="R10C15"
    Application.ScreenUpdating = True
End Sub

Albatros