Réponse acceptée !
Salut arsenejeff.
Ton code ne permettait pas de placer la condition de saut de page puisque ta boucle de rows se trouve dans la boucle de cols. C'est l'inverse qu'il faut faire.
Le code ci-dessous te donne ce que tu voulais avec quelques améliorations :
- marges gauche, haute, droite, basse
- passage en paramètres des colonnes masquées (j'ai vu que tu n'imprimais pas la 0,8,10).
- remplacement de TextRect par la fonction DrawText avec alignement vertical centré.
- impression d'un entête à chaque page comprenant le titre et la ligne 0 (figée). Tu pourrais y ajouter le numéro de la page.
La procédure contient des procédures et fonctions imbriquées : si tu n'es pas habitué à cela, sache que ces procédures ne peuvent être appelées que par la procédure dans laquelle elles ont été déclarées (PrintGrid2), mais elles ont accès aux variables de celle-ci.
Un mot sur ton facteur "5".
La résolution d'un écran classique est de 72 pixels par pouce. Une imprimante de bureau travaille généralement en 300dpi.
Ce qui donne 300/72 = 4,17 que tu as arrondi vers le haut à 5.
Donc une largeur de colonne écran de 50 pixels va s'imprimer sur 250 pixels.
Pas de problèmes sauf si tu passes ton prog à quelqu'un qui imprime en 600 dpi : la largeur des colonnes va être diminuée de moitié, alors que le texte lui va s'adapter à la résolution de l'imprimante.
Ton facteur devrait donc être adapté en fonction de la résolution imprimante.
Ou mieux : travailler en millimètres.
Exemple : une colonne de 144 pixels écran doit faire 2 pouces (50,8 mm) en imprimante (144/72 = 2). Avec une résolution de 300dpi, cela donne : (50,8 * 300) / 25,4 = 600 pixels.
Avec une résolution de 600dpi : (50,8 * 600) / 25,4 = 1200 pixels.
Bonne prog
A +
Thierry
procedure PrintGrid2(sGrid: TStringGrid; sTitle: String; const AColMasked: array of word);
type
TColCoord = record
X1: integer;
X2: integer;
end;
var
AColCoord: array of TColCoord;
I, J : Integer;
GridW: integer;
R : TRect;
PageH : integer;
CurTop: integer;
K: integer;
LeftMargin, RightMargin, TopMargin, BottomMargin: word;
LineH: integer;
procedure PrintLine(P1, P2: TPoint);
begin
with Printer.Canvas do
begin
MoveTo(P1.X, P1.Y);
LineTo(P2.X, P2.Y);
end;
end;
function IsColMasked(ACol: integer): boolean;
var
T: integer;
begin
Result:= false;
for T:= 0 to High(AColMasked) do
if AColMasked[T] = ACol then Result:= true;
end;
procedure PrintCell(ARow, ACol: integer);
var
X1, X2, Y1, Y2 : Integer;
begin
X1:= AColCoord[ACol].X1;
X2:= AColCoord[ACol].X2;
Y1:= CurTop;
Y2:= Y1 + LineH;
PrintLine(Point(X1,Y1), Point(X1,Y2));
R:= Rect(X1 + 50, Y1 + 25, X2 - 30, Y2 - 25);
DrawText(Printer.Canvas.Handle, PChar(sGrid.Cells[ACol,ARow]), -1, R,
DT_SINGLELINE or DT_LEFT or DT_VCENTER);
PrintLine(Point(X2,Y1), Point(X2,Y2));
end;
procedure PrintHeader;
var
T: integer;
begin
with Printer.Canvas do
begin
// Fonte pour le titre
Font.Size:= 12;
Font.Style:= [fsBold, fsUnderline];
Font.Color:= clBlack;
// écriture du titre
TextOut(LeftMargin, TopMargin, Printer.Title);
// Fonte pour la ligne 0
Font.Size:= 8;
Font.Style:= [fsBold];
Font.Color:= clBlack;
end;
// écriture de la ligne 0
CurTop:= TopMargin + 200;
PrintLine(Point(LeftMargin, CurTop),
Point(GridW, CurTop));
for T:= 0 to sGrid.ColCount - 1 do
if not IsColMasked(T) then PrintCell(0,T);
CurTop:= CurTop + LineH;
PrintLine(Point(LeftMargin, CurTop),
Point(GridW, CurTop));
// Fonte pour les autres lignes
with Printer.Canvas do
begin
Font.Size:= 10;
Font.Style:= [];
Font.Color:= clBlack;
end;
end;
begin
K:= 5;
LeftMargin:= 100;
RightMargin:= 100;
TopMargin:= 100;
BottomMargin:= 100;
LineH:= 140;
with Printer do
begin
Orientation := poPortrait;
PageH:= PageHeight;
Title:= sTitle;
Canvas.Pen.Color:= clBlack;
Canvas.Pen.Width:= 7;
Canvas.Font.Name:= 'Times New Roman';
end;
// on remplit le tableau AColCoord
SetLength(AColCoord, sGrid.ColCount);
GridW:= LeftMargin;
for I:= 0 to High(AColCoord) do
if not IsColMasked(I) then
begin
AColCoord[I].X1:= GridW;
AColCoord[I].X2:= GridW + (sGrid.ColWidths[I] * K);
GridW:= AColCoord[I].X2;
end;
// on vérifie si on peut tout imprimer en largeur
if GridW > (Printer.PageWidth - RightMargin) then
begin
ShowMessage('Largeur de page insuffisante');
Finalize(AColCoord);
Exit;
end;
Printer.BeginDoc;
PrintHeader;
for I:= 1 to sGrid.RowCount -1 do // la ligne 0 est imprimée dans PrintHeader
begin
if CurTop + LineH > PageH - BottomMargin then
begin
Printer.NewPage;
PrintHeader;
end;
for J:= 0 to sGrid.ColCount -1 do
if not IsColMasked(J) then PrintCell(I,J);
PrintLine(Point(LeftMargin, CurTop + LineH),
Point(GridW, CurTop + LineH));
CurTop:= CurTop + LineH;
end;
Printer.EndDoc;
Finalize(AColCoord);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Printgrid2(stringgrid1, 'Titre', [0,8,10]);
end;