🚀 go-pugleaf

Andre Steinert wrote:
> 
> Hallo!
> 
> Man kann ja auf Laserdruckern mittels der Printer-Unit Textzeilen
> ausgeben. Gibt es aber auch für Laserdrucker Codes (Steuerzeichenfolgen
> oder ähnliches), womit man z.B. Fettdruck oder Kursivschrift einschalten
> kann?
> 
> Kann man soetwas überhaupt mit Turbo Pascal realisieren oder muss ich
> resignieren? :)
> 
> Andre.
> 
> --
> Email /main/: andre.steinert@braunschweig.netsurf.de
> Email /2nd/: ASteinert@t-online.de

Hallo Andre,

Schau mal im Quellcode "PRNFLTR.PAS" nach, dort sind einige Steuercodes
drin.
Das Programm liegt ab Turbo Pascal 7.0 bei.
Um den Drucker richtig und vollständig anzusprechen brauchst Du das
Programmierhandbuch zum entspr. Drucker (gibts beim Hersteller).
Ist mit Pascal überhaupt kein Problem, mach ich selber für 'nen
Nadeldrucker.

Gruß Peter

In de.comp.lang.pascal.misc Andre Steinert <andre.steinert@braunschweig.netsurf.de> wrote:

> Man kann ja auf Laserdruckern mittels der Printer-Unit Textzeilen
> ausgeben. Gibt es aber auch f�r Laserdrucker Codes (Steuerzeichenfolgen
> oder �hnliches), womit man z.B. Fettdruck oder Kursivschrift einschalten
> kann?

Nat�rlich, vorausgesetzt, du kennst die Codes, bei neueren
stehen die nicht mehr im Handbuch.

> Kann man soetwas �berhaupt mit Turbo Pascal realisieren oder muss ich
> resignieren? :)

write(printer,#27'Edas ist Fett'#27'Fund das nicht'#12);

Vorausgesetzt der Drucker ist im Epson-Modus. F�r andere
gibt's halt andere Codes...
Empfehlenswert ist es nat�rlich nicht, die unit printer
zu benutzen. Besser ist es, selbst eine Datei vom Typ
TEXT zu nehmen, mit ASSIGN auf LPT1 (oder einen konfigurier-
baren Dateinamen) zu setzen und zu �ffnen, weil man damit
a) auch LPT2 nehmen kann,
b) problemlos in eine Datei drucken kann und
c) die Fehler (PaperOut) selbst handeln kann ({$I-} und ioresult).
Und das klappt auch bei Druckerumleitung durch z.B. Netzwerk.

mfg.
Gernot

-- 
<hifi@gmx.de> (Gernot Zander)
Selbstgespr�che gelingen besser, wenn man sich vorher ein bi�chen
reinen Wein einschenkt.

andre.steinert@braunschweig.netsurf.de schrieb am 12.02.98 unter dem Betreff
"Codes f�r Laserdrucker":

> Man kann ja auf Laserdruckern mittels der Printer-Unit Textzeilen
> ausgeben. Gibt es aber auch f�r Laserdrucker Codes (Steuerzeichenfolgen
> oder �hnliches), womit man z.B. Fettdruck oder Kursivschrift einschalten
> kann?

klaro, das ist recht simpel.
Du mu�t nur die entsprechenden Codes kennen und diese dann zusammen mit
dem Text an den Printer senden.
Beispiel:

  WriteLN(LST,#27+'(s7B');   schaltet Fettdruck ein,
  WriteLN(LST,#27+'(s0B');   schaltet Fettdruck wieder aus.

(auf HP-LJ-II-kompatiblen Laserdruckern (fast alle), Deskjets usw...)

Welche Codes es gibt, steht in den jeweiligen Druckerhandb�chern drinne.


Gru�
Wolfram

--
> sky covers the land... dark goggles cover my eyes... speed covers my tracks
>                                                 (Hal Barwood, Full Throttle)

## CrossPoint v3.1 R ##