用A4纸打印，每张8个照片，并用Label显示照片名，有65个照片(30分)

  • 主题发起人 主题发起人 963119
  • 开始时间 开始时间
9

963119

Unregistered / Unconfirmed
GUEST, unregistred user!
大家帮帮忙，电脑中有照片，要做个能打印的东东，要求：
用A4纸打印，每第8个照片，并用Label显示照片名，有65个照片
 
就打印啊，使用报表工具就可以了。。。
ReportMachine,如果不想用数据库，就是用tUserDataset.
 
试试 Grid++Report， 有专门的例子演示类似问题。主页：http://www.rubylong.cn。
多栏报表，参考邮件标签。
 
不会com，不会用Grid++Report呀，热心的各位大侠帮帮忙，能不用Grid++Report报表的吗？（代码？）
 
顶。。。到网上找资料吗。
 
用fastreport3拉设计一个报表就可以了，我都试过在一张A4纸可以打印8个员工证
 
to Lessy
fastreport3没用过，不会呀[:D]
 
谁会用Grid++Report作，教教我中呀！！[8D]
 
其實這個問題很簡單啊，你隨便可能用一個報表工具就可以了，把版面排好，我用FR3.0根本不 要寫代碼就出來了啊
 
用Grid++Report， 参考'邮件标签.grf'与例子Picture。把图像文件存入数据库字段中，或把图像的文件名保存到表中，这样图像数量不确定的情况下都可以自动打印出来。
 
能不能用代码实现呀？
 
可以用代码写，不过很长，主要用到PRINTERS的画布属性，先用JPG对象装载图片，然后用printer.Canvas.StretchDraw()方法把图片复制到打印机上，位置调整你可以慢慢试拉。。当Y轴超过纸张高度时进行换页
 
最简单的办法，用Form1.Print，
TImage,Label控件放上面，两重循环解决问题
 
To redsky.l
我是用Form1.Print，但纸张大小，以及控件位置不好把握!![?]
(如果图片少我自己可以用动态方法，可太多了不知怎样分页、还有就是动态生成控件的位置把握不好[:D]）
 
呵呵……有好处也有坏处呀，鱼和熊掌不能兼得嘛[:D]
多试几次，动态调整From大小，计算一页能打多少张图片，再来一次循环就解决了
控件不用动态生成，TImage,Label放在From上也能打印出来呀，你直要动态调Image图片
当然，有可能在动态调整位置
printer.Canvas 不可取，不知道你用的是版本是多少，反正我是遇到打印机内存不够的问题
 
又有人想做在线输出了吧！
 
哪我到底要给多少分呢!!!
谁发个代码吧给100分，不能言而无信，redsky.l是热心的最少也要30分吧!!!!
要不包了算 ^_^
 
To：963119
别动不动就叫别人给源码，不利你编程水平的提高。我不是为你分来的。

关于打印的问题我也发过很多问，你可以查我以前发问的帖子。Delphi的打印不完美（这也可能是操作系统的错），我到现在都没有找到非常好的控件。
如果你对Canvas的操作很在行，去找TPrintPreview这个控件。提供的打印预览基本上是所见即所得，省了不纸张。但先给你提个醒，这个控件在惠普的某一种机型无法正确打印出来。目前客户的反馈就这样
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
0
打印报表中包含有照片，为什么有的内容上照片为空白？？？ (50分)
回复
4
查看
207
john_zxy
J
G
打印图片问题？ (100分)
回复
15
查看
536
ghbh
G
H
循环显示两张图片(50分)
回复
3
查看
222
hnzgw
H
X
奇怪的打印预览问题？(100分)
回复
2
查看
211
无疯无禄
无
后退
顶部