Listbox drucken

[roga]

Vielleicht: Listbox1.Items.Strings[Line]);
...oder direkt auf Drucker-Canvas zeichnen:

Delphi-Quellcode:

Printer.BeginDoc;
with Printer.Canvas do
begin
  Font.Name := 'Arial';
  Font.Color := clBlack;
  Font.Height := 42;
  Font.Style := [];
  YPos := 200;
  for Line := 0 to ListBox1.Items.Count - 1 do 
  begin
    TextOut(200, YPos, Listbox1.Items.Strings[Line]);
    inc(YPos, 50);
  end;
end;
Printer.EndDoc;