将QuickReport报表保存为图片(使用TMetaFile和TMetafileCanvas)
2024-08-27 23:50:33
//将报表第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;
http://www.cnblogs.com/snow001x/archive/2009/01/07/1371166.html
最新文章
- php在5.5.0默认提供了Zend OPcache
- 引用类型的转换问题和instanceof
- [ASP.NET MVC 小牛之路]17 - 捆绑(Bundle)
- 看代码学知识之(2) ListView无数据时显示其他View
- Hadoop第1~2周练习—Hadoop1.X和2.X安装
- const与readonly深度分析(.NET)
- CodeForces 525C Ilya and Sticks 贪心
- python实现PKCS5Padding
- 疑似CPU或者内存故障导致进程崩溃
- NKOJ4191 Trie树
- 基于Springboot集成security、oauth2实现认证鉴权、资源管理
- linux下crontab定时执行shell脚本调用oracle 存储过程
- [NewLife.XCode]高级查询(化繁为简、分页提升性能)
- 翻译:SET PASSWORD语句(已提交到MariaDB官方手册)
- (Zero XOR Subset)-less-线性基
- bootstrap之排版样式
- Hash 迭代程序构造器要求字符串参数--错误解决
- Data - Hadoop单机配置 - 使用Hadoop2.8.0和Ubuntu16.04
- 文件名含中文的JavaWeb文件下载
- 快速排序(Quicksort)的Javascript实现(转载)