Drukawnie canvas

Mam oto prostą procedrukę do drukownia obrazka na całej stronie. I wszystko jest ok ale tylko na niektórych drukarkach.
Np. na drukarce HP LJ 1300 i 1320 wszystko jest ok ale na HP LJ 1010 lub 4100 juz nie.
Na tych ostatnich po prostu drukje pustą stronę. Proszę o pomoc.

    Rec:=Rect(
      0,
      0,
      Printer.PageWidth,Trunc(Printer.PageWidth/jvdbimage2.Picture.Width*jvdbimage2.Picture.Height));

  Printer.BeginDoc;
  Printer.Canvas.StretchDraw(Rec,jvdbimage2.Picture.Graphic);
  printer.EndDoc;
  Screen.cursor := crDefault;

rozdzielczość drukowania może być inna dla tych drukarek

W taki wypadku po pierwsze drukowałby np. nie cały obrazek a po drugie:

 Printer.PageWidth

Pobieram szerokość aktualnie wybranej drukarki.