text und *.bmp ausdrucken

[sakura]

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