Still cant get it to work :-(

[Eisasuarez]

Hi

How can i change this so it prints in Colour

I still cant get it to work, it keeps printing in black and white (This printer does have print colour option)

Sub PrintMe()
Application.ScreenUpdating = False
Dim SmSh As Worksheet
Dim PrSh As Worksheet
Dim MyPrinter As String
Set SmSh = Sheets("DAILY SUMMARY")
Set PrSh = Sheets("PRINT")
MyPrinter = "??????? on Ne06:"
SmSh.PrintOut , Copies:=1, ActivePrinter:="MyPrinter"
SmSh.PageSetup.BlackAndWhite = False
Application.Goto Sheets("RAW DATA").Range("A1"), Scroll:=True
Call SortHighestValues
PrSh.PrintOut , Copies:=1, ActivePrinter:="MyPrinter"
PrSh.PageSetup.BlackAndWhite = False
Call SortHighestDays
PrSh.PrintOut , Copies:=1, ActivePrinter:="MyPrinter"
PrSh.PageSetup.BlackAndWhite = False
Application.Goto SmSh.Range("A1"), Scroll:=True
Application.ScreenUpdating = True
End Sub

Please Help me

 

[Eisasuarez]

Hi

How can i change this so it prints in Colour

I still cant get it to work, it keeps printing in black and white (This printer does have print colour option)



Please Help me

Please
can someone help me
please

 

[number kruncher]

Could you setup a separate Colour Printer Driver and send to this, without trying to change its settings via VBA?

HTH

 

[Eisasuarez]

Could you setup a separate Colour Printer Driver and send to this, without trying to change its settings via VBA?

HTH

I wont be able to do that

 

[RoryA]

Changing the page setup will not affect the printer if it prints in black and white by default. You would need fairly complex Windows API calls for that.

 

[Eisasuarez]

Hi Rory

How would you advise to go about it to print in colour?

 

[Eisasuarez]

Hi Rory

How would you advise to go about it to print in colour?

Any luck Rory

thank you

 

[RoryA]

I don't work weekends!

See the code here for example.