Listbox + Print

Bonjour

Je voudrais imprimer le texte écrit sur ma listbox. Je clique dans un menu sur la procédure Imprimer


procedure TForm2.Imprimer1Click(Sender: TObject);
begin
Printdialog1.Execute;
end;


Une fenêtre s'ouvre mais en cliquant sur Ok rien ne se passe. Faut-il ajouter une ligne de code ?
Que faire ?

Merci de vos éventuelles réponses.

Relevant Pages

  • >> Custom Packetsniffer
    ... Procedure cmdCLHookMSGClick(Sender: TObject); ... If fHookLibrary 0 Then Begin ... End Else Begin ...
    (de.comp.lang.delphi.misc)
  • Re: ttyS0-Unit
    ... Text file assigned may be opened, written to or read from with standard ... IF waiting> 0 THEN BEGIN ... END; ...
    (de.comp.lang.pascal)
  • Re: in serielle Schnittstelle schreiben
    ... var disp: file of string; ... END. ... zu dem möglicherweise das BEGIN verlorengegangen ist? ... Text file assigned may be opened, written to or read from with standard ...
    (de.comp.lang.pascal)
  • Re: MouseLeave - Mouseenter oder Enter - Exit
    ... Integer read FBorderWidth write SetBorderWidth ... Begin ... If FocusControl Nil Then Begin ...
    (de.comp.lang.delphi.misc)
  • BCP (OUT) via SP und SQLDMO.BulkCopy
    ... DECLARE @BCobject int ... DECLARE @rdelimiter char ... BEGIN ... END ...
    (microsoft.public.de.sqlserver)