Delphi 不写一行代码快速制作漂亮的表格,打印(预览),(欢迎回帖有分)
1)用 Excel 做好表格不添数据网格的大小一定要够大(越漂亮越好不要太多颜色).
2)将 表格选中 按Ctrl+C (拷贝).
3)打开,Adobe Illustrator 10 或 CorelDRAW 10 以上(别的软件没式)
4)在 Illustrator 或 CorelDRAW 新建一个 A4 的文档
5)Ctrl+V 粘贴,这样我们的Excel 表格画完好的拷贝到Illustrator 或 CorelDRAW 6)用 Illustrator 或 CorelDRAW 导出.EMF 文件(EMF 文件是矢量的大家都知道吧)
7)打开 Delphi 托一个 QuickRep 在放上一个QRImage;
8)选择 QRImage 的 prcture 属性导入刚才 6 中导出的EMF 文件.
漂亮的表格完成了!由于EMF文件式矢量突不管你的打多大都不会 失真 ^_^
是不是一行代码都不要写.比原来用 QRShape 画表格简单还漂亮!斜线也行的.
9)将没添数据的地方放上 您需要的 打印控件就行了(如:QRLabel 等);
10)配合 QuickRepNeedData 事件 和 QuickRep1StartPage 就可以了!