Impression StringGrid "entier"

Version imprimable

19/02/2007, 14h42
care

Impression StringGrid "entier"

Bonjour voila j'arrive bien a imprimer mon stringgrid
mais la problemme est que quand j'imprime si j'ai beaucoup de ligne dans mon stringgrid l'impression va se limiter a une seule page

ca fait que je ne vais pas avoir la fin de mon stringgrid d'imprimer.
comment je pourais faire.

j'avais penssé a mettre mes données qui ne passe pas dans la première feuille dans un autre stringgrid pour les imprimer a la suite. mais c'est un peut brutal comme solution surtout que j'ai besoins de tout mettre dans un stringgrid (pour la rentrée des notes)

voila je rapel que je n'imprime pas avec un qickreport.

merci d'avance ^^
19/02/2007, 14h49
kkhaled

avec quel composant u travail pour imprimer le StringGrid

j'utilise

Code:

uses printers

+ un bout de code

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
procedure PrintGrid2(sGrid: TStringGrid; sTitle: String);
var
 X1, X2 : Integer;
 Y1, Y2 : Integer;
 TmpI : Integer;
 F : Integer;
 TR : TRect;
begin
 Printer.Orientation := poPortrait;
 Printer.Title:=sTitle;
 Printer.BeginDoc;
 Printer.Canvas.Pen.Color:=0;
 Printer.Canvas.Font.Name:='Times New Roman';
 Printer.Canvas.Font.Size:=12;
 Printer.Canvas.Font.Style:=[fsBold, fsUnderline];
 Printer.Canvas.TextOut(0, 0, Printer.Title);
 
 For F:=1 to sGrid.ColCount-1 do begin
   X1:=0;
   if F <> 8  then
   begin
   if F <> 10 then
   begin
 
   For TmpI:=1 to (F-1) do
     X1:=X1+5*(sGrid.ColWidths[TmpI]);
   Y1:=200;            //   Y1:=300;
   X2:=0;
   For TmpI:=1 to F do
     X2:=X2+5*(sGrid.ColWidths[TmpI]);
   Y2:=350;     //  Y2:=450;
   TR:=Rect(X1, Y1, X2-30, Y2);
   Printer.Canvas.Font.Style:=[fsBold];
   Printer.Canvas.Font.Size:=8;
   Printer.Canvas.TextRect(TR, X1+50, 250, sGrid.Cells[F, 0]);    //   250<<350
 
   Printer.Canvas.Font.Style:=[];
   Printer.canvas.Pen.Width := 7;       //épaisseur de la ligne
 
   Printer.Canvas.MoveTo(X1,Y1);          //1
   Printer.Canvas.LineTo(X2,Y1);
 
   Printer.Canvas.MoveTo(X1,Y1);          //2
   Printer.Canvas.LineTo(X1,Y2);
 
   Printer.Canvas.MoveTo(X2,Y2);          //3
   Printer.Canvas.LineTo(X2,Y1);
 
 
   For TmpI:=1 to sGrid.RowCount-1 do begin
     Y1:=140*TmpI + 200;                    //   Y1:=150*TmpI + 300;
     Y2:=140*(TmpI+1)+ 200;                 //    Y2:=150*(TmpI+1)+ 300;
     TR:=Rect(X1, Y1, X2-30, Y2);           //    TR:=Rect(X1, Y1, X2-30, Y2);
     Printer.Canvas.TextRect(TR, X1+50, Y1+25, sGrid.Cells[F, TmpI]);  //X1+50, Y1+50,
 
   Printer.Canvas.MoveTo(X1,Y1);          //1
   Printer.Canvas.LineTo(X2,Y1);
 
   Printer.Canvas.MoveTo(X1,Y1);          //2
   Printer.Canvas.LineTo(X1,Y2);
 
   Printer.Canvas.MoveTo(X2,Y2);          //3
   Printer.Canvas.LineTo(X2,Y1);
 
   Printer.Canvas.MoveTo(X2,Y2);          //4
   Printer.Canvas.LineTo(X1,Y2);
   end;
 end;
end;
end;
 Printer.EndDoc;
end;

voila ^^

20/02/2007, 14h34
care

Bon voila j'y arrive mais a la méthode barbare quand même.
arriver à un nombre N d'information je réécrire mais information dans un nouveau stringgrid.que j'imprime a la suite du 1er.du coup ca me fait 3 stringgrid bien sûr l'utilisateur n'y voit rien mais bon pas trés estétique comme solution.

bref si qq1 a une solution plus pratique je suis à l'écoute ^^
20/02/2007, 16h35
LadyWasky

Il y a peut être un moyen avec

Code:

StringGrid1.PaintTo(Printer.Canvas)

Il faut que je regarde ça un petit peu, donc laisses moi un peu de temps ;)

Voilà,

Donc je t'ai sorti une procédure qui dessine un StrinGrid Dans un Bitmap.
Après, il n'y a plus qu'a afficher le Bitmap sur le canvas de l'imprimante.
Quitte à découper le bitmap en sous bitmap

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
procedure GridToBitMap(Grid:TStringGrid;ABitMap:TBitMap);
Var AForm:TForm;
    AGrid:TStringGrid;
    i,j,h,w:integer;
begin
  AForm:=TForm.Create(nil);
  AGrid:=TStringGrid.Create(AForm);
  AGrid.Parent:=AForm;
  AGrid.Ctl3D:=False;
  AGrid.ScrollBars:=ssNone;
  AGrid.color:=Grid.Color;
  AGrid.FixedColor:=Grid.FixedColor;
  AGrid.Font:=grid.Font;
  AGrid.ColCount:=Grid.ColCount;
  AGrid.RowCount:=Grid.RowCount;
  AGrid.FixedCols:=Grid.FixedCols;
  AGrid.FixedRows:=Grid.FixedRows;
  AGrid.Options:=grid.Options;
  AGrid.GridLineWidth:=grid.GridLineWidth;
  AGrid.DefaultDrawing:=grid.DefaultDrawing;
  AGrid.OnDrawCell:=Grid.OnDrawCell;
  i:=0;
  while i<AGrid.ColCount do
  begin
    j:=0;
    while j<AGrid.RowCount do
    begin
      AGrid.Cells[i,j]:=Grid.Cells[i,j];
      inc(j);
    end;
    inc(i);
  end;
  i:=0;
  w:=0;
  while i<AGrid.ColCount do
  begin
     inc(w,AGrid.ColWidths[i]);
     inc(i);
  end;
  i:=0;
  h:=0;
  while i<AGrid.RowCount do
  begin
     inc(h,AGrid.RowHeights[i]);
  inc(i);
  end;
  AGrid.Height:=h+1+AGrid.RowCount*AGrid.GridLineWidth;
  AGrid.Width:=w+1+AGrid.ColCount*AGrid.GridLineWidth;
  ABitMap.width:=AGrid.Width;
  ABitMap.Height:=AGrid.Height;
  AGrid.Refresh;
  AGrid.PaintTo(ABitMap.Canvas,0,0);
  AForm.Free;
end;

Et voici comment celà s'utilise ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var ABitmap:TBitmap;
     Zoom:integer;
begin
StringGrid1.Cells[3,3]:='truc';
  ABitmap:=TBitmap.Create;
  try
    //Utilisation de notre fonction
    GridToBitMap(StringGrid1,ABitmap);
 
    //Exemple de Sortie sur l'imprimante
    Zoom:=Printer.
    ARect:=Printer.Canvas.ClipRect;
    Zoom:=(ARect.Bottom-ARect.Top)/ABitmap.Height;
    ARect.Right:=ARect.Left+ABitmap.Width*zoom;
    Printer.BeginDoc;
    Printer.Canvas.StretchDraw(,ABitmap);
    Printer.EndDoc;
  finally
    ABitmap.Free;
  end;
end;

20/02/2007, 19h28
care

merci beaucoup d'avoir pris le temps de fair ce code je vasi tester ca
et jte dit si c'est bon

j'ai continuer a cherché un peut avant d'avoir ton code et il me semble qu'il y est une methode avec :

Printer.NewPage;
et
Printer.PageHeight;

en connaissant la hauteur de la page je fait un saut de page une fois la hauteur ateinte.

je vais regarder a tt ca te dit quoi ^^