Ich würde auch eher die Methor Pinter.Canvas aus der
Unit Printers empfehlen. Diese Variante ist um weites flexible als mit AssignPrn und ähnlichen Funktionen zu arbeiten
Ist auch recht einfach. Nur mal eine Idee, ist jetzt nicht getestet
Code:
uses
Printers;
...
var
R: TRect;
I, LineHeight: Integer;
begin
Printer.BeginDoc;
try
LineHeight := Printer.Canvas.TextHeight('gGyYjJtT') * 3 div 2;
R.Left := 100;
R.Right := Printer.PageWidth - 200;
R.Top := 100;
for I := 0 to Pred(ListBox1.Items.Count) do
begin
Printer.Canvas.TextOut(R.Left, R.Top, ListBox1.Items[I]);
R.Top := R.Top + LineHeight;
end;
R.Top := R.Top + 25;
Printer.Canvas.CopyRect(R, Bitmap.Canvas, Bitmap.Canvas.ClipRect);
finally
Printer.EndDoc;
end;
end;
Keine Garantien