Discussion :

[PhilLU]

Bonsoir,
Je cherche à imprimer un StringGrid mais pas les lignes dont le contenu d'une cellule est vide.
Ce code ne m'imprime pas la ligne mais réalise tout de même un saut de ligne; ce que je ne souhaite pas.
J'ai tenté plusieurs variantes à partir de ce code mais sans succès:

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
40
41
42
43
44
 
procedure PrintGrid(sGrid: TAdvStringGrid);
var
X1, X2 : Integer;
Y1, Y2 : Integer;
TmpI : Integer;
F : Integer;
TR : TRect;
begin
Printer.Title:='blabla';
Printer.BeginDoc;
Printer.Canvas.Pen.Color:=0;
Printer.Canvas.Font.Name:='Verdana';
Printer.Canvas.Font.Size:=12;
Printer.Canvas.Font.Style:=[fsBold, fsUnderline];
Printer.Canvas.TextOut(0, 100, Printer.Title);
      begin
      For F:=1 to sGrid.ColCount-1 do
            begin
              X1:=0;
              For TmpI:=1 to (F-1) do
                X1:=X1+5*(sGrid.ColWidths[TmpI]);
              Y1:=300;
              X2:=0;
              For TmpI:=1 to F do
                X2:=X2+5*(sGrid.ColWidths[TmpI]);
              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, 350, sGrid.Cells[F, 0]);
              Printer.Canvas.Font.Style:=[];
              For TmpI:=1 to sGrid.RowCount-1 do
             if sGrid.cells[2,TmpI]<>'' then       // je teste ici si la cellule est vide
               begin
                Y1:=150*TmpI+300;
                Y2:=150*(TmpI+1)+300;
                TR:=Rect(X1, Y1, X2-30, Y2);
                Printer.Canvas.TextRect(TR, X1+30, Y1+30, sGrid.Cells[F, TmpI]);
               end;
            end;
      end;
Printer.EndDoc;
end;

Merci 1000x pour vos suggestions
PhilLU

[ThWilliam]

Bonjour.

Ton saut de ligne provient des valeurs Y1 et Y2 qui sont déterminées par TmpI
Or TmpI = la ligne en cours dans le stringgrid et non pas la ligne en cours à imprimer.
Tu as donc besoin d'une variable contenant la position de la dernière ligne imprimée.

Je n'ai pas le temps maintenant de corriger ton code, mais voici un conseil :
Ton impression se fait par 1 colonne entière à la fois. Ceci ne permet pas de gérer les éventuels sauts de page !
Donc ta boucle principale devrait être de Row 0 à RowCount - 1.
Et dans cette boucle, la boucle des colonnes.

Cordialement
Thierry

[SergioMaster]

Bonjour,

j'abonde dans le sens de th.william sur le fait que la boucle principale devrait se faire sur les lignes
de plus je ferais une fonction (même interne à la procédure) genre function islignevide(ligne : integer) : Booleanpour séparer la partie test de la partie impression

[edit] une intervention urgente et je vois que je me suis fait griller par Philippe (logique ma réponse est restée en suspend au moins une heure
bref son EmptyRow correspond à la fonction que j'avais en tête (je l'aurais quand même mise en fonction )

[Ph. B.]

[edit] une intervention urgente et je vois que je me suis fait griller par Philippe (logique ma réponse est restée en suspend au moins une heure
bref son EmptyRow correspond à la fonction que j'avais en tête (je l'aurais quand même mise en fonction )

Je me suis fait grillé par Thierry pour à peu près la même raison...
Sinon, tout à fait d'accord pour la fonction. On peut aussi placer la partie traitant de l'entête dans une autre fonction...
Mais je laisse un peu de "TAF" à notre demandeur PhilLu

[Ph. B.]

Bonjour,

Merci 1000x pour vos suggestions

Posez le problème de manière moins ambigu...
En donnant un jeu d'essai et le résultat attendu par exemple !
Et en nommant les variables de manière plus intelligibles...

Je cherche à imprimer un StringGrid mais pas les lignes dont le contenu d'une cellule est vide.

Ce ne serait pas plutôt les lignes dont toutes les cellules sont vides ?

Enfin d'après ce que j'ai compris, j'aurais écrit un truc du genre :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
procedure PrintGrid2(sGrid: TStringGrid);
var
  X, Y: Integer;
  ACol, ARow: Integer;
  EmptyRow: Boolean;
  TR : TRect;
begin
  Printer.Title:='blabla';
  Printer.BeginDoc;
  Printer.Canvas.Pen.Color := 0;
  Printer.Canvas.Font.Name := 'Verdana';
  Printer.Canvas.Font.Size := 12;
  Printer.Canvas.Font.Style := [fsBold, fsUnderline];
  Printer.Canvas.TextOut(0, 0, 'blabla');
 
  //
  Printer.Canvas.Font.Size := 8;
 
  // Entête
  Printer.Canvas.Font.Style:=[fsBold];
  X := 0;
  for ACol := 1 to sGrid.ColCount - 1 do
  begin
    X := X + ACol * 50;
    TR := Rect(X, Y, X + Printer.Canvas.TextWidth(sGrid.Cells[ACol, 0]), Y + 50);
    Printer.Canvas.TextRect(TR, X, 100, sGrid.Cells[ACol, 0]);
  end;
  // Contenu
  Printer.Canvas.Font.Style:=[];
  Y := 0;
  for ARow := 1 to sGrid.RowCount - 1 do
  begin
    //
    EmptyRow := True;
    for ACol := 1 to sGrid.ColCount - 1 do
      if sGrid.Cells[ACol, Arow] <> '' then
      begin
        EmptyRow := False;
        Break;
      end;
    if EmptyRow then
      Continue;
    //
    X := 0;
    Y := Y + 50;
    for ACol := 1 to sGrid.ColCount - 1 do
    begin
      X := X + 50 * ACol;
      TR := Rect(X, Y, X + Printer.Canvas.TextWidth(sGrid.Cells[ACol, ARow]), Y + 50);
      Printer.Canvas.TextRect(TR, X, Y, sGrid.Cells[ACol, ARow]);
    end;
  end;
  Printer.EndDoc;
end;