title image


Smiley Re: Text Datei ausdrucken...?
so sollte es gehen:



Dim var As String

Dim Quelldatei as String

Quelldatei = C:\DeineTxt.txt



Printer.FontName = "arial"

Printer.FontSize = 12

Printer.Copies = 1

Printer.Orientation = 1

Open Quelldatei For Input As 1



Do While EOF(1) = False

Line Input #1, var

Printer.Print var

Loop

Printer.EndDoc

Close





gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: