ListView Daten ausdrucken?

[Mattin]

Hallo Master_BB

versuch es doch mal so

Delphi-Quellcode:

uses Printers;

var
 PrintText   : TextFile;
 i           : Integer;
begin
   // Schrift und Schriftgrösse angeben 
   Printer.Canvas.Font.Name :='Courier'; 
   Printer.Canvas.Font.Size := 10;      
   if PrintDialog1.Execute then
   begin
    {$I-}
    AssignPrn(PrintText);
    Rewrite(PrintText);

    Writeln(PrintText, 'Mein erster Ausdruck vom ' + FormatDateTime('dd.mm.yyyy',Date()));
    Writeln(PrintText, '');

    for i := 0 to ListView1.Items.Count -1 do
    begin
      Writeln(PrintText, ListView1.Items.Item[i].Caption + char(09) + ListView1.Items[i].SubItems[0]);
    end;

   end;
    CloseFile(PrintText);
   {$I+}
end;