[Paskal]

помогите выставить область печати на странице

Код:

BeginDoc;
    // The StartDoc function starts a print job.
    try
       papermmx := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALWIDTH) /
                   GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);
       papermmy := GetDeviceCaps(Printer.Canvas.Handle, PHYSICALHEIGHT) /
                   GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);

       x1:= Round(papermmx);
       y2:= Round(papermmy);

      ScaleX := GetDeviceCaps(Handle,  logPixelsX) div 1 ; //
      ScaleY := GetDeviceCaps(Handle, logPixelsY)  div 1; //

      CR:=(0,0, x1 * ScaleX , y2 * ScaleY);

     canvas.stretchdraw({canvas.cliprect} CR, image2.picture.graphic);
    //Canvas.StretchDraw(RR, Image2.Picture.Graphic);
      // Stretch to fit
    finally
      EndDoc;
    end;

Меняю CR:=(0,0, x1 * ScaleX , y2 * ScaleY);
пробовал в canvas.cliprect.left:=100;
не получается съезжает картинка