aaaaargh!!

[Rogierasd]

hallo!!
Ik heb een button met code om een aantal werkbladen te printen..
maar nu vraag ik me af hoe ik kan zorgen dat mijn printer in kleur uitprint ipv zwartwit,
hoe schrijf ik dit in code?

kom er niet uit!!!

 

[huijb]

Iets als dit misschien Worksheets("Sheet1").PageSetup.BlackAndWhite = False

 

[CorVerm]

Rogier,
Volgens mij is het voldoende om dat gewoon bij de werkblad opties in te stellen. Om een bepaald(e) werkblad(en) te printen heb je toch alleen de code
SelectedSheets.PrintOut Copies:=1, Collate:=True o.i.d. nodig? Dus het al of niet printen in kleur kun je, volgens mij, onder pagina instelling regelen. Normaal gesproken staat die instelling ook op kleur tenzij door jou anders is aangegeven.

 

[Rogierasd]

Iets als dit misschien Worksheets("Sheet1").PageSetup.BlackAndWhite = False

Nop, sorry, werkt niet..
mijn blad is wel kleur en paginainstelling ook, maar hij print 'm nog steeds in zwart wit...
moet het niet zoiets zijn als Collate:=True
of Copies:=1..
zoiets, maar dan voor kleur..

ik heb nl:
Sheets("actueel").Select
Application.ActivePrinter = "\\server\HPL1100 op Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\server\HPL1100 op Ne03:", Collate:=True
Sheets("TIJDLIJN").Select
Application.ActivePrinter = "\\server.SERVER.NL\minolta op Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\server.SERVER.NL\minolta op Ne01:", Collate:=True
Sheets("HOMEPAGE").Select

onder een button op mijn 'homepage', maar uit de minolta komt dan mijn tijdlijn grafiek zwartwit!!!
ik wordt er gek van!!

groetjes,
rogier:shocked: