Discussion :

[redoran]

Slt ; je ne c'est pas si j'ai choisi la bonne rubrique ou non ( excuse modérateur) ;
voila j'ai 05 stringgrid chacun contient 16 cellules avec des valeurs et je dois les imprimés , là je me demande :
est ce que je dois affecté par code la valeurs de chaque cellule a un qrlabel?
et si c'est le cas sa doit me faire ( 80 valeurs a affectées )...
une idée

[Charly910]

Bonjour,

pour imprimer le contenu d'un SringGrid tu peux utiliser ceci :

http://www.phidels.com/php/index.php...ip.php3&id=593

Je ne sais pas si c'est plus simple

A+

Charly

[redoran]

Slt ; merci charly sans faute

[Charly910]

Sinon tu peux directement imprimer ta StringGrid avec ce code

il faut mettre un Uses de l'unité Printers et poser un TPrintDialog sur ta Form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TForm3.Button2Click(Sender: TObject);
var
  I, Start, Stop: Integer;
begin
PrintDialog1.Options := [poPageNums, poSelection];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := 1;
PrintDialog1.MaxPage := 1;
if PrintDialog1.Execute then
  begin
    { détermine l'ensemble que l'utilisateur souhaite imprimer }
    with PrintDialog1 do
    begin
      if PrintRange = prAllPages then
        begin
        Start := MinPage - 1;
        Stop := MaxPage - 1;
      end
      else if PrintRange = prSelection then
      begin
        Start := PageControl1.ActivePage.PageIndex;
        Stop := Start;
        end
      else  { PrintRange = prPageNums }
      begin
        Start := FromPage - 1;
        Stop := ToPage - 1;
      end;
    end;
    { imprime les pages maintenant }
    with Printer do
    begin
      BeginDoc;
        StringGrid1.PaintTo(Handle, 10, 10);
      EndDoc;
    end;
  end;
end;

A+

Charly

[Paul TOTH]

j'ai un code qui date de Delphi 1 !
PrtGrids

[redoran]

Bonjour ; Merci charly et paul voila j'ai pris les deux solutions pour réglé l'impression la ou il existe un seul stringgrid.
mais dans mon cas y'a 05 alors j'ai formater nom support sur quick report et affecté les valeurs du stringgrid.
merci a tous