Rescaling and repositioning the metafile image.
----------------------------------------------
In file qrprntr.pas.
procedure TQRPrinter.Print;
var
   xoffset, yoffset : integer; 
... 
begin 
... 
   //*** Change the target rectangle to the full page size
   //APrinter.Canvas.StretchDraw(Rect(0, 0, APrinter.PageWidth, APrinter.PageHeight), APage);
   // try this 
   xoffset := 5;
   yoffset := 5;
   APrinter.Canvas.StretchDraw(Rect(xoffset, yoffset, aSize.x, aSize.Y), APage); 
... 
end; 
// add an unprintable area to the metafile metrics
function TQRPrinter.GetLeftWaste : integer; 
{ Return left unprintable area in 0.1 mm } 
begin 
  if Destination=qrdPrinter then 
    Result := aPrinterSettings.LeftOffset 
  else 
    Result := 0; 
  //** Change 
    Result := aPrinterSettings.LeftOffset; 
end; 
function TQRPrinter.GetTopWaste : integer; 
{ Return unprintable area on top in 0.1 mm } 
begin 
  if Destination=qrdPrinter then 
    Result := aPrinterSettings.TopOffset 
  else 
    Result := 0; 
  //** Change 
  Result := aPrinterSettings.TopOffset; 
end;