Hello,
I know there are already a lot of topics about printers, but I can't find the sollution to my problem.
In my program I want some labels to be printed on printer P661 (black/white) and other labels on printer P656 (color).
Q: is it possible to do this in vba for my code?
The labels are made in Word and printed from within Excel.
The Macro Code I use
The specific printers in the network are:
Color ---> "\\Plantijn\P656 op Ne00:"
Black/white ---> "\\plantijn2000old\P661 op Ne02:"
How do I have to adjust the code above to print on P656 when the active printer in windows is P661?
Thanks in advance
I know there are already a lot of topics about printers, but I can't find the sollution to my problem.
In my program I want some labels to be printed on printer P661 (black/white) and other labels on printer P656 (color).
Q: is it possible to do this in vba for my code?
The labels are made in Word and printed from within Excel.
The Macro Code I use
Code:
Sub PrintNACL_LABEL()
Dim oWord As Object
Dim sPath As String
Dim iCnt As Integer
sPath = ThisWorkbook.Path & Application.PathSeparator & "NACL_LABEL.doc"
iCnt = Val(InputBox("Hoeveel exemplaren?", "NACL_LABEL", 1))
If iCnt >= 1 Then
Set oWord = CreateObject(Class:="Word.Application")
With oWord.Documents.Open(sPath)
.PrintOut Background:=False, Copies:=iCnt
.Close False
End With
oWord.Quit False
End If
Set oWord = Nothing
End Sub
The specific printers in the network are:
Color ---> "\\Plantijn\P656 op Ne00:"
Black/white ---> "\\plantijn2000old\P661 op Ne02:"
How do I have to adjust the code above to print on P656 when the active printer in windows is P661?
Thanks in advance