能否将报表Preview的结果存为.bmp图片？

Question

能否将报表Preview的结果存为.bmp图片？

Answer 1

//将报表第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;