Lisboxinhalt Drucken

Michael15 · Beiträge: 76 Win XP Professional Delphi 2, 3, 7, 8

Hallo Leute,
Ich habe einen Printdialog und eine Listbox.
Ich möchte nun den Inhalt der Listbox drucken.

Dann habe ich geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure drucken;
begin
  if form1.printdialog1.execute then
  ???;
end;

Was muss an der Stelle der Fragezeichen stehen, damit der Drucker die Listbox druckt mit ihren Eigenschaften(Schriftgröße,schriftfarbe usw.)???

Moderiert von Christian S.: Delphi-Tags hinzugefügt.

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Benutz doch die Suche Suche in: Delphi-Forum, Delphi-Library

DRUCKEN

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

Michael15 · Beiträge: 76 Win XP Professional Delphi 2, 3, 7, 8

dann steht da aber: Keine Eigenschaften entsprechen deinen Kriterien!!!
Kannst du mir bitte helfen???

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Schau mal hier:
www.delphi-forum.de/...ghlight=memo+drucken

Hier geht es um das Drucken eines MemoFeldes ist aber im Prizip das gleiche. Du musst z.B lines durch items ersetzen

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

Michael15 · Beiträge: 76 Win XP Professional Delphi 2, 3, 7, 8

das verstehe ich nicht, kannst du das vielleicht mal hier erklären und einfach nur die Zeile aufschreiben??? Danke

Fabian W. · Beiträge: 1766 Win 7 D7 PE

das is net nur eine Zeile. Ersetz doch alle Memo1.lines... durch ListBox1.items...

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

uses ..., Printers;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
Line: Integer;
PrintText: TextFile; 
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText);
Rewrite(PrintText); 
Printer.Canvas.Font := combobox1.Font;
for Line := 0 to combobox1.items.Count - 1 do
Writeln(PrintText, combobox.items[Line]); 
CloseFile(PrintText); 
end;

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

Fabian W. · Beiträge: 1766 Win 7 D7 PE

Es ging um Listboxen! Wenn schon dann mach es doch bitte richtig! :autsch:

Fabian W. · Beiträge: 1766 Win 7 D7 PE

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

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

Außerdem würd ich
procedure Form1.drucken schreiben
:wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme