D5 -nyomtatási gondok

[V]

Segítségeteket kérném!
Egy mérésadatgyüjtő adataiból rajzolt grafikont szeretnék kinyomtatni.
D5-ben nyomtatok, (nyomtatnék ?!) szöveget és grafikát.A program indítása
után a legelső 1-2 nyomtatás hibátlan, az ez után következőkről viszont
lehagyja a grafikát.
Itt van az a rész, ami nem nyomtatódik ki:
with Printer do
----
----
----
----
// grafikon rácsozat kirajzolása --------------------------
      y:=Trunc(PageHeight-magassag+(racs/2));
      a:=0;
      Canvas.Pen.Width:=1;
      repeat
        Canvas.MoveTo(0,y);
        Canvas.LineTo(PageWidth,y);
        y:=Trunc(y+(racs/2));
        inc(a);
      until a=39;
      Canvas.Pen.Width:=4;
      Canvas.Polyline([Point(0,PageHeight-magassag-1),
                       Point(PageWidth-1,PageHeight-magassag-1),
                       Point(PageWidth-1,PageHeight-1),
                       Point(0,PageHeight-1),
                       Point(0,PageHeight-magassag-1)]);
// grafikon kirajzolása Bmp-ben lévő bitmap-ból
      Canvas.Pen.Mode:=pmCopy;
      Canvas.Pen.Color:=clBlack;
      Canvas.Pen.Style:=psSolid;
      Canvas.Pen.Width:=1;
      Canvas.CopyMode:=cmSrcCopy;
      Canvas.Brush.Style:=bsSolid;
      r:=Bounds(0,PageHeight-magassag-1,
               PageWidth-1,PageHeight-1);
      Canvas.StretchDraw(r,Bmp
 EndDoc;
 end;
A rácsozatot kirajzolja minden nyomtatáskor, a grafikont viszont csak a
legelső 1-2 nyomtatáskor.
Mit tévesztettem hogy nem működik a dolog ? ? ?

Kösz:   safi