'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