netwerk instellingen printer

[thst]

Hallo Allemaal,

ik heb een code om af te drukken naar een andere printer als de standaard printer.
En die vervolgens ook weer de orginele standaard printer terug zet.

Alleen bij de volgende regel is de aansturing van de printer;
Application.ActivePrinter = "\\ijmpr00\PR11765 op Ne03:"
waar kan ik deze instellingen vinden ? \\ijmpr00\PR11765 op Ne03

Angela

 

[thst]

Dit is de voledige code,

Sub instaleer_printer()
Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\\ijmpr00\pr11765"
End Sub

Deze macro print het bestand vervolgens uit:
Sub print_naar_WOW_printer()
instaleer_printer
Dim strCurrentPrinter As String
strCurrentPrinter = Application.ActivePrinter ' onthoud de standaard active printer
On Error Resume Next ' negeer print fouten
Application.ActivePrinter = "\\ijmpr00\PR11765 op Ne03:" ' switch naar een andere printer
ActiveSheet.PrintOut ' print de actieve sheet
Application.ActivePrinter = strCurrentPrinter ' terug naar de standaard printer
On Error GoTo 0 ' hervat de normale fout afhandeling
End Sub

 

[thst]

Ik ben eruit, code aangepast.

Voor de belanghebbende hier de code;

Sub print_naar_WOW_printer()
'instaleer_printer
Dim strCurrentPrinter As String
strCurrentPrinter = Application.ActivePrinter ' onthoud de standaard active printer
On Error Resume Next ' negeer print fouten
Application.ActivePrinter = "Facturen Lade 2" ' switch naar een andere printer
'ActiveSheet.PrintOut ' print de actieve sheet
   ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Facturen Lade 2"
Application.ActivePrinter = strCurrentPrinter ' terug naar de standaard printer
On Error GoTo 0 ' hervat de normale fout afhandeling
End Sub

Angela