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??

[Philippe Gormand]

En mode conception ? -> Menu Fichier->Imprimer.
Si non, faire une copie d'écran, et reprendre avec paint.

[edam]

Référence VCL
TWinControl.PaintTo

TWinControl Voir aussi Exemple

Dessine le contrôle fenêtré dans un contexte de périphérique.

procedure PaintTo(DC: HDC; X, Y: Integer);

Description

La méthode PaintTo permet de dessiner le contrôle dans un contexte de périphérique. Le contexte de périphérique doit être spécifié comme valeur du paramètre DC, les paramètres X et Y permettent d'indiquer les coordonnées du coin supérieur gauche du contrôle fenêtré à dessiner. PaintTo commence par effacer l'arrière-plan du contexte de périphérique puis dessine le contrôle.

PaintTo est utile pour dessiner une image du contrôle dans un contexte de périphérique bitmap.

Avertissement*: Si vous utilisez PaintTo pour dessiner dans canevas, vous devez au préalable verrouiller le canevas, puis le déverrouiller après l'appel de PaintTo. Si vous ne verrouillez pas le canevas, les appels Windows se produisant lors du dessin du contrôle peuvent faire perdre son handle au canevas.