Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBS PDF drucken

Frage Entwicklung VB for Applications

Mitglied: mixmastertobsi

mixmastertobsi (Level 1) - Jetzt verbinden

29.10.2010 um 09:03 Uhr, 10813 Aufrufe, 3 Kommentare

Hallo zusammen,

eins vorweg - ich bin gespannt, ob es für mein Problem eine Lösung gibt.

Aufgabenstellung:
In einem Netzwerk Ordner sind PDF Dateien, die automatisch gedruckt werden sollen. Das VBS läuft als Dienst im Hintergrund. Die PDF Dateien werden automatisch auf dem Standardrucker gedruckt. Dies alles funktioniert jeduch nur, wenn ein Benutzer angemeldet ist. Sobald der User sich abmeldet, werden die PDF-Dokument zwar noch geduckt, jedoch nicht mehr auf dem richtigen Drucker. Irgend was bringt das System da durcheinander.

Meine Frage daher - wie kann ich per VBS eine PDF Datei drucken und den Druckername angeben? Danke!

kleiner Auszug aus dem Skript
set objShell = CreateObject("WScript.Shell")
iErrorCode = objShell.Run("AcroRd32.exe /p /h " & objitem.path)
Mitglied: AndreasHoster
29.10.2010 um 09:18 Uhr
Unter was für einem User Account läuft den der Dienst?
Vermutlich System, oder? Und vermutlich Interaktiv mit Desktop?

Wenn ja, lass den Dienst unter einem eigenem User laufen, der den richtigen Drucker als Standarddrucker definiert hat.
Bitte warten ..
Mitglied: 60730
29.10.2010 um 15:57 Uhr
Moin,

per VBS eine drucken und den Druckername angeben

Du mußt das anders lösen....
Der druckt zu 100% auf den Standarddrucker (siehe auch Andreas Antwort)

  • xyz im Script ist der Drucker, auf dem gedruckt werden soll und den stellst du so als Standarddrucker ein.


01.
strComputer = "." 
02.
Set objWMIService = GetObject("winmgmts:" _ 
03.
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
04.
Set colInstalledPrinters =  objWMIService.ExecQuery _ 
05.
    ("Select * from Win32_Printer Where Name = 'xyz'") 
06.
For Each objPrinter in colInstalledPrinters 
07.
    objPrinter.SetDefaultPrinter() 
08.
Next 
09.
 
10.
set objShell = CreateObject("WScript.Shell") 
11.
iErrorCode = objShell.Run("AcroRd32.exe /p /h " & objitem.path)
Gruß
Bitte warten ..
Mitglied: 76109
31.10.2010 um 13:28 Uhr
Hallo mixmastertobsi!

Andere Möglichkeit in etwa so:
01.
Const AcrobatReader = """C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe"" /t ""%1""" 
02.
Const PrinterDriver = """C:\Windows\System32\Drivers\UsbPrint.sys""" 
03.
Const PrinterName = """Canon MX850 Series Printer""" 
04.
Const PrinterPort = """USB002""" 
05.
 
06.
Dim objShell, CmdLine 
07.
     
08.
Set objShell = CreateObject("WScript.Shell") 
09.
 
10.
CmdLine = AcrobatReader & " " & PrinterName & " " & PrinterDriver & " " & PrinterPort	 
11.
	 
12.
objShell.Run Replace(CmdLine, "%1", objItem.path)
Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Windows Tools
PDF-Drucker
gelöst Frage von malikaWindows Tools25 Kommentare

Hallo, ich bräuchte einen guten PDF-Drucker (für Windows 7 Pro 64 Bit-BS) zum Verschicken der Daten per E-Mail. Ich ...

Batch & Shell
Powershell PDF drucken auf verschiedene Drucker
gelöst Frage von ChrissssiBatch & Shell2 Kommentare

Hallo zusammen, Mein Problem ist das ich PDF Dateien habe die ich auf unterschiedliche Drucker automatisch drucken muss. Das ...

Entwicklung
Automatischer PDF Druck auf spezifischen Drucker
Frage von Orvqb99d5E2UEntwicklung4 Kommentare

Hi. Ich benötige für einen Windows Server ein Script mit folgenden Eigenschaften: Order1 soll überprüft werden, wenn dort neue ...

Entwicklung
Vbs - Email versenden mit pdf-Anhang?
gelöst Frage von BenJo64Entwicklung2 Kommentare

Hallo, ich verzweifele gerade an folgendem Problem: Ich versuche von einem Microsoft Windows Server 2003 aus eine pdf als ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 1 TagApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 1 TagWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 1 TagWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Kein Bild mit nur einer bestimmten Grafikkarten - Mainboard Konfiguration
gelöst Frage von bestelittHardware18 Kommentare

Hallo zusammen, ich hatte schon einmal eine ähnliche Frage gestellt. Damals hatte ich genau das gleiche Problem. Allerdings lies ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement16 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...