zeilenweise drucken

**Hansa**

Hi,

ich muß Listen drucken. Und zwar auf einen Bondrucker Epson TMT-88III. Standardmäßig hat der nur 40 Zeichen / Zeile. Das hier gefällt mir jetzt aber nicht so recht :

markieren

Delphi-Quellcode:

			  if PrintDialog1.Execute then begin

    printer.BeginDoc;

    printer.Canvas.Font.Size := 8;

showmessage (printer.Printers.Names[1]);

    printer.Canvas.TextOut(1,1,'12345678901234567890123456789012345678901234567890');

    printer.Canvas.TextOut(1,31,'Zeile 2');

    printer.Canvas.TextOut(1,61,'Zeile 3');

    printer.Canvas.TextOut(1,91,'Zeile 4');

    printer.EndDoc;

  end;

Kann man das jetzt nicht verallgemeinern, also ohne die absoluten Pixel-Angaben ? Am liebsten wäre es mir mit writeln zu arbeiten, aber dann gibt es Probleme im Netzwerk mit Freigabenamen usw. Und noch kurze Nebenfrage : wieso zeigt mir die showmessage nichts an ?

zeilenweise drucken

zeilenweise drucken

Forumregeln