Workbook print in black and white

  • Thread starter Thread starter sox
  • Start date Start date
S

sox

Hello there

I'd like a work book with about 45 worksheets to always print in black and
white. I've found this staement but it seems to only apply to one worksheet.
Is there a macro for the whole workbook please?

'Worksheets("Sheet1").PageSetup.BlackAndWhite = True'

TIA
Sox
 
Sox,

For Each Sheet In Worksheets
Sheet.PageSetup.BlackAndWhite = True
Next Sheet

If any of the sheets are chart sheets, it'll take different code. Post
back.
 
Sox

Sub Blk_Wht_Print()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).PageSetup.BlackAndWhite = True
Next n
Application.ScreenUpdating = True
End Sub

Note: you can do this without macro.

Select First sheet in workbook, hold down SHIFT key and select Last sheet in
workbook. This "groups" the sheets.

Go into page setup>sheet and select "Black and White". All sheets will take
that format.

DO NOT FORGET to right-click on any sheet tab and "ungroup sheets". What you
do to one will be done to all with a few exceptions.

Gord Dibben XL2002
 
thank you
Sox

Earl Kiosterud said:
Sox,

For Each Sheet In Worksheets
Sheet.PageSetup.BlackAndWhite = True
Next Sheet

If any of the sheets are chart sheets, it'll take different code. Post
back.
Click to expand...
 
Thank you. I found that grouping the sheets also takes on other page setup
characteristics of the lead sheet and applies them to all the grouped
sheets. Worked it out eventually; had to group selectively :)
Sox




Sox

Sub Blk_Wht_Print()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).PageSetup.BlackAndWhite = True
Next n
Application.ScreenUpdating = True
End Sub

Note: you can do this without macro.

Select First sheet in workbook, hold down SHIFT key and select Last sheet in
workbook. This "groups" the sheets.

Go into page setup>sheet and select "Black and White". All sheets will take
that format.

DO NOT FORGET to right-click on any sheet tab and "ungroup sheets". What you
do to one will be done to all with a few exceptions.

Gord Dibben XL2002
Click to expand...
 
Back
Top