Listbox drucken

[thiagojonas]

Hallo Leute,
ich möchte gerne den inhalt einer listbox ausdrucken.

Habe folgenden code gefunden und verwendet.
Das problem ist, dass komische chinesische zeichen ausgedruckt werden, anstatt der wirklichen items.
Woran liegt das?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var    Line: Integer;
       PrintText: TextFile;
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font.Name := 'Arial';
for Line := 0 to ListBox1.items.Count - 1 do
Writeln(PrintText, Listbox1.items[Line]);
CloseFile(PrintText);
end;

Und hier das resultat.

[toms]

Hallo

Was passiert, wenn du eine andere Schrift nimmst. z.B Tahoma?

[SirThornberry]

vielleicht liegt es einfach daran: "Listbox1.items[Line]"
Was erwartet WriteLn als zweiten Parameter? Und stimmt das mit dem welchen du übergibst zusammen?

[Bernhard Geyer]

Wo druckst du? Ich sehe nur das du in ein TextFile schreibst?

Wie schaut der Inhalt deiner Items Textuell aus?
Wie schaut die Textdatei aus?

[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;