How to make colors to printer via VBA?

H

hannu

Hi.

I have simple code:

Private Sub Document_Open()
Dim k As Integer
Dim ap As String
Dim l As Integer
l = 0
ap = ActivePrinter
MsgBox ("Your default printer is ") & ap
ActivePrinter = "\\ServerName\Xerox WorkCentre"
MsgBox ("Your default printer has been changed to ") & ActivePrinter
k = InputBox("Give number of copies:")
Do Until l = k
If l = 0 Then
Application.PrintOut
End If
Application.PrintOut , , , , , , , 1, , , , , "c:\document1.doc"
Application.PrintOut , , , , , , , 1, , , , , "c:\document2.doc"
Application.PrintOut , , , , , , , 2, , , , , "c:\document3..doc"
Application.PrintOut , , , , , , , 1, , , , , "c:\document4.doc"
l = l + 1
Loop
'ActiveDocument.PrintOut False
ActivePrinter = ap
MsgBox ("Your default printer is now put back to ") & ap
Application.Quit
End Sub


Is it possible to tell the printer that I want to have those documents
in color? In the printer default is black/white and I want to keep it
that way.

hanski
 
H

hannu

See the example athttp://www.gmayor.com/fax_from_word.htmre printing to
colour printers.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor -  Word MVP

My web sitewww.gmayor.com
Word MVP web sitehttp://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>










- Näytä siteerattu teksti -

That was a little bit different thing, if I understood it correct.
That code was looking for a colour printer so you can print in
colours, but I would like to change colouroption of a certain printer
and then change it back to black/white.

hanski
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top