Da listbox a stampante

Salve a tutti,

il mio dilemma è questo:dovrei effettuare la ricerca in un file e metterne il risultato in una listbox per poi stampare il contenuto di essa.
La ricerca e l'inserimento nella listbox sono riuscito a farlo senza troppi inceppi, il problema è mandare il contenuto alla stampante per poi ovviamente stamparlo.
Come faccio?? Creo un file excel o altro ?? Aiutatemi non mi ero mai cimentato in quest'impresa!

(scusate sono nuovo del forum e non essendone molto pratico avrò certamente commesso qualche errore)

Hai valutato l'utilizzo di un tool di reporting qualsiasi in Delphi, tipo FastReport, RAVE Reports, QuickReports, ...
In questo caso, hai molta documentazione ed esempi a disposizione, se fai una ricerca su Google.

In alternativa, puoi sempre usare l'oggetto Printer (unit Printers) per inviare direttamente gli elementi della ListBox alla stampante.

Comunque sia, non manderei in stampa la ListBox in quanto tale, se è questo che intendevi fare, perché chiaramente stamperesti il suo aspetto grafico e non vedresti sulla carta gli elementi che sono nascosti (a meno che tu non sia sicuro che il numero non ecceda l'area visibile, ma lascerei perdere comunque questa strada).

Ciao!

Il modo più veloce e triste è usare assignprn su un textfile.
Eventualmente setta printer.canvas.font per avere un font vagamente leggibile, e
poi cicla sugli items con writeln().

E' un approccio stile anni 80, ma funziona

LA cosa più banale per stampare il listbox è la seguente:

uses
  ...
  Printers,
  ...
procedure ProvaStampa;
var
F: TextFile;
i: integer;
begin
  AssignPrn(F); { assegna il file di testo alla stampante }
 try
  Rewrite(F); { Occorre usare Rewrite dopo aver usato AssignPrn } 
  for i:=0 to listbox1.items.count-1 do
     WriteLn(F, listbox1.items[i]);
 finally
   CloseFile(F);
 end;
end;