Das deutsche QBasic- und FreeBASIC-Forum

[Michel80]

Hallo an alle

ich versuche mich gerade ein bissle in Freebasic und steh gerade vor dem Problem das ich eine normale Text Datei drucken möchte und zwar von der Konsole aus auf einen Drucker der am USB-Prot betreiben wird.

Ich habe zwar ein Codebeispiel gefunden aber mein Samsung Laser-Drucker macht nichts anderes als anlaufen und wieder in Standby zu gehen - gedruckt wird aber nicht - es wird noch nicht mal Papier eingezogen- jemand ne idee?

Ich habe folgenden Code versucht:

DIM RptInput AS STRING
Dim as Integer RptFilehandle = FREEFILE

OPEN "test.txt" FOR INPUT AS #RptFilehandle

Dim as Integer Printhandle = FREEFILE
OPEN LPT "LPT:ReceiptPrinter,TITLE=ReceiptWinTitle,EMU=TTY" AS #Printhandle

WHILE NOT EOF(RptFilehandle)
LINE INPUT #RptFilehandle, RptInput
PRINT #Printhandle, RptInput
WEND

CLOSE #Printhandle ' Ein CHR(12) zum Bestätigen des Druckauftrages ist nicht
' notwendig. Wenn allerdings eine neue Seite begonnen werden
' soll, muss dennoch CHR(12) gesendet werden.
CLOSE #RptFilehandle

PRINT "Beliebige Taste zum Beenden druecken..."
GETKEY


Danke schonmal

[ytwinky]

[Michel80]

Guten morgen,

also das mit dem Namen ändern egal ob im Drucker-Manager oder im Programmcode geht nicht. Ich sende zwar die Datei an den Spooler aber der Drucker macht nix. Nun habe ich es mal mit nem HP drucker probiert und der sagt nur die Patornen seien leer - was aber nicht stimmt. Über Word kann ich ganz normal drucken. ?????

[Sebastian]

Hallo,

prinzipiell funktioniert der Code. Wichtig ist natürlich, dass die Datei test.txt, die damit zeilenweise gedruckt wird, auch irgendeinen Inhalt hat.

Es kommt außerdem auf den richtigen Druckernamen an. Am einfachsten ist es, wenn dein Druckername weder Sonder- noch Leerzeichen enthält. Ich habe z.B. den "PDFCreator" installiert. Wenn ich "ReceiptPrinter" durch "PDFCreator" ersetze, kann ich mit dem einfachen Code problemlos ein PDF erzeugen.

Im Verzeichnis <PfadZuDeinerFBInstallation>\examples\Windows\ findest du eine Datei namens printer_select.bas. Darin wird ein Auswahldialog verwendet, der automatisch den richtigen Druckernamen ermittelt und anschließend etwas ausdruckt. Du könntest dieses Codebeispiel mal ausprobieren.

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!