Udskrive fra ListBox

du kan kopiere indholdet fra din listbox til en memo og så udskrive derfra

Memo kan du sætte til visible= false

Memo1.Text:=Listbox1.Items.Text;

// udskriv

var
Line:Integer;                //udskriver dbrichedit1
PrintText:System.Text;
begin
if Pd.Execute then
begin
AssignPrn(PrintText);
ReWrite(PrintText);
Printer.Canvas.Font := memo1.Font;
for Line :=0 to memo1.Lines.Count - 1 do
Writeln(PrintText, memo1.Lines[Line]);
System.Close(PrintText);
end;

Hvor pænt skal det være? Stones eksempel virker, men du kan også bygge det op på et TPrinter.Canvas - lidt noget pillearbejde i forhold til ovenstående, indrømmet, men det er den pæneste måde og du har bedre kontrol over hvad der sker ved linieknæk, font- og papir-størrelser og den slags.

Der er ingen grund til at arbejde sig over i Rave eller QuickReport for en enkelt listbox.

? -> Stone

Hvorfor kopiere til en TMemo, når man lige så godt kunne udskrive fra en TListBox?

var
  Pr: TextFile;
  Linie: LongInt;
begin
  Print.Options := [];
  if Print.Execute then
  begin
    AssignPrn(Pr);
    Rewrite(Pr);
    Printer.Canvas.Font := ListBox1.Font;
    for Linie := 0 to ListBox1.Items.Count -1 do
      Writeln(Pr, ListBox1.Items[Linie];
    System.Close(Pr);
  end;

næ... det er der da heller ingen gund til med den meget pænere løsning du har ss

du mangler bare lige ")"
Writeln(Pr, ListBox1.Items[Linie];

Hej anton kruse andersen,
send lige et svar, så du kan få points.

jaweni

Hej Jaweni.
Orv for et gammelt hængeparti.