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 :
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 ?
