Vbscript - ActivePrinter - Wechsel

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

habe ein VB-Script geschrieben, das mir eine Dokument in Word öffnet und an einen Drucker sendet.
Möchte das Dokument gerne an mehrere Netzwerkdrucker versenden.
Bisher habe ich folgendes:

Dim WordApp, Doc

Set WordApp = CreateObject(„Word.Application“)
WordApp.application.visible = true
Set Doc = WordApp.Documents.Open(„F:\Andi\Programmierung\PDF_Export_Druck\testdruck.doc“)
WordApp.Application.ActivePrinter = „Epson Stylus COLOR ESC/P 2“
WordApp.Application.Printout
WordApp.Application.ActivePrinter = „Epson Stylus COLOR 440 ESC/P 2“
WordApp.Application.PrintOut

Der Druckerwechsel funktioniert leider nicht. Was muss ich tun?

#2

Hallo,
von VBS habe ich keine Ahnung, evtl hilft Dir der VB-Code.

Dim prThis As Printer

 For Each prThis In Printers
 If prThis.DeviceName = "RICOH LASER AP2100 PCL 5e" Then
 Set Printer = prThis
 SetDefaultPrinter = True
 End If
 Next prThis

Gruß, Rainer

#3

Hallo!

Bei mir funktionierts:
Set WordApp = CreateObject(„Word.Application“)
WordApp.application.visible = true
Set Doc = WordApp.Documents.Open(„F:\1.vbs\t.doc“)
WordApp.Application.ActivePrinter = „FinePrint 2000“
WordApp.Application.Printout
WordApp.Application.ActivePrinter = „LJ4 an LPT1“
WordApp.Application.PrintOut
WordApp.Application.ActivePrinter = „LJ4 im Netz“
WordApp.Application.PrintOut

Word 2002 (10.6612.6714) SP3

Bis dann - dieseyer

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]