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