急!!!!!!关于如何在一张纸上打印多个图片呀!!!!!!高手请进!111(25分)

爱

爱delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-12

• #1

最近我在做一个打印相片的程序,打印一个图片容易可是好何在在一个纸上打印多个图片可不知道怎么实现 呀,听说可以通过printer来实现,可我以前没有接触过的呀,不知道如何下手呀,那位高手给我指点一下呀!!!例如我要打印六张,则在相机纸上打印出上面三张下面三张,并有一定的间距,也就是常说的一寸相片!分是少了些可这是me的全部家产了呀,我的毕业设计还有这个功能没有实现,希望高手帮忙呀!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![][][]

 

G

gwm110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-14

• #2

可以通过printer.Canvas.StretchDraw(RECT(0, 0, 10500, -14800), bmp1);
间距你自己设定吧

 

爱

爱delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-14

• #3

能不能说的具体点呀,那可是在一个图片上打印几张图像呀,????????给点代码!

 

G

gwm110

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-14

• #4

只要区域够大,和内存够大随你打多少
bmp1:= TBitmap.Create;
bmp2:= TBitmap.Create;
bmp1.LoadFromFile('d:/kopgfds.bmp');
bmp2.LoadFromFile('d:/kopgfds1.bmp');
printer.begin
Doc;
SetMapMode(Printer.handle, MM_HIMETRIC);
printer.Canvas.StretchDraw(RECT(0, 0, 100, -100), bmp1)
printer.Canvas.StretchDraw(RECT(2, 0, 200, -200), bmp2);
...... //你需要拼装多少照片就可以做个循环
printer.EndDoc;
bmp1.Free;
bmp2.Free

 

爱

爱delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #5

哦,原来这么牛气啊~.我还有一点疑惑就是能不能控制它们之间的间距呀,例如我想每一行打印3个,共两行,也就是六张那怎么设呀,这对这方面很是不了解的,我打印的是同一张相片!!!!!![?][?]

 

G

grwriter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #6

建议用构件。
Grid++Report 的图像框就是用来显示各种格式图像的，建议去试试Grid++Report，可以免费使用，去 http://www.rubylong.cn 下载。

 

0

001zqk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #7

用報表吧,如Fastreport