Print colour and black / white

Hi everybody

My problem:

I got a workbook with 3 sheets and want to print two copies.

1 in colour (standar setting of the printer) and the 2nd in b/w.

What I got:
_______________________

sub abc()

ActiveWorkbook.PrintOut Copies:=2, Collate:=True

End sub
_______________________

Thanks in advance

aldo iam no expert in vba...
and i hope i dont make a compleet fool of meself here :o

try this
Printer.ColorMode = 1 'vbPRCMMonochrome

Thanks Goggy, but it's not working...

Sub Macro1()

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True 'this is where the colour is set.
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub



Try using the macro recorder.

Best regards,

Jaap.

ok, this is how I solved it:

Sub Druck()

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.BlackAndWhite = False
End With

ActiveWorkbook.PrintOut copies:=1, Collate:=True

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.BlackAndWhite = True
End With

ActiveWorkbook.PrintOut copies:=1, Collate:=True

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.BlackAndWhite = False
End With
End Sub

Hey Jaap, Just saw your post. I guess we found it out in the same time.

Thanks a lot Jaap.