巨难！！怎么实现在一张A4纸里打印8张图片！ (36分)

  • 主题发起人 主题发起人 cansim
  • 开始时间 开始时间
C

cansim

Unregistered / Unconfirmed
GUEST, unregistred user!
也就是读取8张图片，然后均匀排列打印出来！
有什么办法啊？一点头绪都没有！
 
在Form上放8个Image，大小调整好
不可以吗？
或者用FastReport应该可以实现你的需求
 
打印整个FORM出来？？
 
没有人知道吗？
 
有什么难的啊? [:D]
 
我想在一个 IMAGE里面排列出来不知道行不行，上面的那位兄弟说说看你是怎么做的！
实在没有分了，请帮忙，谢谢！！
 
to:zhaoyanjun
别说完了就跑啊！这等于什么都没说啊：（
 
你必须调用API函数,StretchBlt可在指定范围内打印图片
 
ImageEn控件可以做到
www.51delphi.com
 
我的意思是在一张纸里面打印出8张图片的缩略图！
想用一个image里面排列8张出来
但用image1.Canvas.Draw()的话图片不能缩小，有什么办法？
另外为了打印多页使用frame可不可行？
 
关系到饭碗啊，请大家帮忙啊！
 
先计算出当前打印机打印a4纸所用的像素,然后分成8份,横向纵向随你喜欢,
得出各幅图的座标后,定义一个trect变量,再设trect的上下左右,然后用print就ok!
如:
var
t:trect;
begin
t.Left:=100;
t.Top:=200;
t.Right:=100;
t.Bottom:=200;
printer.Canvas.StretchDraw(t,image1.Picture.Graphic);
end;
这是一张图,如果八张就重复,但t的值要变的.(用之前计算所得的座标值)
 
现在没有打印机，明天回单位试试^___^
 
to:samboy111
imageen可以显示出缩略图了，但怎么打印啊？给几行代码好吗？
 
to:ebxca
你的办法成功了^___^
谢谢！
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
5K
chlkuei
C
小
打印透明图片(100分)
回复
3
查看
184
小小荷叶
小
赤
图形打印问题，请大家帮忙看一看(100分)
回复
2
查看
143
wk_knife
W
C
一个小问题,怎么样切割图片(100分)
回复
11
查看
215
chenybin
C
W
菜鸟看到论坛上有人不用加载form就可以做程序，就是直接在程序.dpr里写程序，我想实现显示一张图片，怎么实现啊？(50分)
回复
12
查看
294
wanglongb
W
后退
顶部