Debutant. imprimer une ListBox

Version imprimable

26/05/2006, 00h24
fermat

Debutant. imprimer une ListBox

Bonsoir,

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

Merci..pour la solution ..

Fermat

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

Imprimer une listbox// mettre Printers dans USES

Code:

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;

Bonjour.

On peut faire comme ça :

Code:

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;

31/05/2006, 12h28
fermat

imprimer une listbox

Bonjour,

Je vous remercie pour vos informations.

fermat
31/05/2006, 13h11
Philippe Gormand

Pense à mettre la balise [Resolut] si ton problème est réglé.
31/05/2006, 14h14
avogadro

de la meme façon comment ferait on pour imprimer le contenu de la forme, de tous les composants qu'elle contient??
31/05/2006, 14h48
Philippe Gormand

En mode conception ? -> Menu Fichier->Imprimer.
Si non, faire une copie d'écran, et reprendre avec paint.
31/05/2006, 14h52
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.