http://dieseyer.de • all rights reserved • © 2011 v11.4

'v2.4*****************************************************
' File: TXTzumLPT1.VBS
' Autor: dieseyer@gmx.de
' dieseyer.de
'
' Kopiert eine Datei direkt zum Drucker. Es wird jedes!!!
' Zeichen der Datei zum Drucker geschickt. Man sollte also
' nur .PRN- oder ASCII-Dateien (z.B. Quelltexte) verwenden.
'
' Es gibt Scanner, mit denen es möglich ist, den Scanner,
' zusammen mit am PC angeschlossenen Drucker, als Kopierer
' zu nutzen. Auf dem PC ist zum Standarddrucker ein wei-
' terer gleicher Drucker zu installieren, der in eine
' Datei druckt. Nutzt man jetzt die Kopierer-Funktion,
' entsteht eine Datei (mit der Endung .PRN).
'
' Ich habe das mal verwendet, um die zahlreichen Kopien
' für meine Bewerbungen mit einem Laserdrucker zu drucken.
'*********************************************************

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

set oArgs = Wscript.Arguments ' hole Argumentsauflistung
If oArgs.Count > 0 Then ' gibt es Argumente?
Datei = oArgs.item(0) ' erstes Argument
Else
Text = "Das Ganze funktioniert so:" & vbCRLF & vbCRLF
Text = Text & "Mit der Maus ein Datei auf das Skript ziehen und" & vbCRLF
Text = Text & "fallen lassen - JETZT wird die Datei zum Drucker" & vbCRLF
Text = Text & "an LPT1 kopiert . . ." & vbCRLF & vbCRLF
Text = Text & "Wenn es keine TXT-Datei ist, können es HUNDERTE! " & vbCRLF
Text = Text & "Seiten werden!" & vbCRLF
MsgBox Text, , WScript.ScriptName
WScript.Quit
End If

Drucker = "\\MeinPC\Drucker"
Drucker = "\\MeinPC\Drucker"
Drucker = "LPT1:"
Drucker = InputBox ("Auf welchen Drucker soll """ & Datei & """ gedruckt werden?", WScript.ScriptName, Drucker)
If Drucker = "" then WScript.Quit

' MsgBox "Copy " & Datei & " nach " & Drucker
FSO.CopyFile Datei, Drucker

TextX = Datei & " wurde zum Drucker " & Drucker & " kopiert!" & vbCRLF & vbCRLF
TextX = TextX & "Möglicherweise muss von Hand der Seitenvorschub ausgelöst werden!"
WSHShell.Popup TextX, 15, WScript.ScriptName

http://dieseyer.de • all rights reserved • © 2011 v11.4