Inhalt einer Listbox ausdrucken ?

[Orbmu2k]

Also für reinen Text sollte das so passen:

Delphi-Quellcode:

uses
  Printers;

procedure PrintText(Text:TStrings; Font:TFont);
var
  i:Integer;
begin
  with Printer do
  begin
    BeginDoc;
    Canvas.Font.Assign(Font);
      for i := 0 to Text.Count-1 do
        Canvas.TextOut(5, (i*(Canvas.TextHeight(Text[i])+5))+50 , Text[i]);
    EndDoc;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PrintText(Listbox1.Items , Font);
end;