将报表保存为图片

//将报表第iPageNo页存为BMP文件  
  procedure   ReportSaveToBMPFile(sFileName   :string;   iPageNo   :integer);  
  var  
      E:   TMetaFile;  
      B:   TBitmap;  
  begin  
      E   :=   QRPreview1.QRPrinter.GetPage(iPageNo);   //想要第几页  
      B   :=   TBitmap.Create;  
      try  
          with   TMetafileCanvas.Create(E,   0)   do  
          try  
              B.Height   :=   E.Height;  
              B.Width   :=   E.Width;  
              B.Canvas.Draw(0,   0,   E);  
              B.SaveToFile(trim(sFileName));  
          finally  
              Free;  
          end;  
      finally  
          B.Free;  
      end;  
  end;