Discussion :

[fermat]

Bonsoir,

Je suis débutant [Delphi_7], et je souhaite imprimer le contenu d'une ListBox.

Merci..pour la solution ..

Fermat

[DURVILLE]

Voici une solution "basique" ...
Il y a plus élaboré si l'on veut ...

Imprimer une listbox// mettre Printers dans USES

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure Tform1.Button1Click(Sender: TObject);  // Imprim liste1
 Var
        i :Integer;
        textlist :String;
begin
     Printer.BeginDoc;
     for i:= 0 to Pred(Listbox1.Items.Count) do
        Begin
        textlist:=ListBox1.Items [i];
        Printer.Canvas.TextOut(50,(i*50)+50,textlist);
        End;
        printer.Endoc;
end;

[Philippe Gormand]

Bonjour.

On peut faire comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Procedure TForm1.Button1Click(Sender : TObject);
 
Var
   RicheEdit1 : TRichEdit;
 
begin
    RichEdit1 := TRichEdit.Create(Self);
    RichEdit1.Lines.Assign(ListBox1.Items);
    RichEdit1.Print('');
    RichEdit1.Free;
end;

[fermat]

Bonjour,


Je vous remercie pour vos informations.

fermat

[Philippe Gormand]

Pense à mettre la balise [Resolut] si ton problème est réglé.

[avogadro]

de la meme façon comment ferait on pour imprimer le contenu de la forme, de tous les composants qu'elle contient??