Discussion :

[bertrantitude]

bonjour,


Dans un smbgrid, j'ai un ensemble de lignes, mais lorsque je les imprime, je n'ai que la première page (alors qu'il devrait en avoir deux).


Une idée?

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
 var
 r: TRect;
 i: Integer;
 begin
   with Printer do
   begin
     r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
     BeginDoc;
     Canvas.Brush.Style := bsClear;
     for i := 0 to Memo1.Lines.Count do
       Canvas.TextOut(200,200 + (i * Canvas.TextHeight(Memo1.Lines.Strings[i])), Memo1.Lines.Strings[i]);
     Canvas.Brush.Color := clBlack;
     Canvas.FrameRect(r);
 
     EndDoc;

[Andnotor]

C'est à toi de calculer s'il faut une nouvelle page et si oui d'appeler NewPage.