procedure TQRPrinter.Print;
type
  TSmallPoint = record
    X,
    Y : integer;
  end;
var
  I : integer;
  aPoint : TSmallPoint;
  ASize : TPoint;
  APage : TMetafile;
  FromPage, ToPage: integer;
begin
{$ifdef EVAL}
  if not DelphiRunning then
    MessageDlg('Unregistered evaluation copy - Printing is only allowed while Delphi is running',mtWarning,[mbOK],0) // do not locallize
  else
{$endif}
{$ifdef VER36PRO}
    if assigned(FMaster) and not ReportLoaded and ( not PrintMetafile and (Status = mpFinished)) then
{$else}
    if assigned(FMaster) and not ReportLoaded then
{$endif}          PostMessage(Master.Handle, CM_QRPRINT, 0, 0)
    else // print metafile
      if (Status = mpFinished) and PrinterOK then
      try
        APrinter.Title := Title;
        if APrinter.Printing then
          APrinter.Abort;
{$ifdef VER36PRO}
        self.aPrinterSettings.ApplySettings;
{$endif}
        APrinter.BeginDoc;            FromPage := 1;
        ToPage := PageCount;    {
        if (FirstPage <> 0) or (LastPage <> 0) then
        begin
          FromPage := FirstPage;
          ToPage := LastPage;
        end;
}        
        if FirstPage <> 0 then
          FromPage := FirstPage;
 
        if LastPage <> 0 then
          ToPage := LastPage;            for I := FromPage to ToPage do
        begin
          Application.ProcessMessages;
          PageNumber := I;              aPoint.X := GetDeviceCaps(APrinter.Handle, PHYSICALOFFSETX);
          aPoint.Y := GetDeviceCaps(APrinter.Handle, PHYSICALOFFSETY);
          aSize.X := GetDeviceCaps(APrinter.Handle, PHYSICALWIDTH);
          aSize.Y := GetDeviceCaps(APrinter.Handle, PHYSICALHEIGHT);              APage := GetPage(I);
          try
            APrinter.Canvas.StretchDraw(Rect(0, 0, APrinter.PageWidth, APrinter.PageHeight), APage);
          finally
            APage.Free;
          end;
//          if I < PageCount then APrinter.NewPage;
          if I < ToPage then APrinter.NewPage;
          if Cancelled then
            APrinter.Abort;
        end
      finally
        if APrinter.Printing then
          APrinter.EndDoc;
      end;
end;