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
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