这个打印如何实现（图片）？？？(100分)

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #1

一个listbox中存放一批字符串（为图片在数据库中的编号），原图片大小为360*300
现在要在一张A4的纸上打印，每张打印3*5张图片，（图片缩放到合适大小）
最好还可以预览的，（应该不会太难吧，我是因为从来没有接触过，没条件啊）呵呵

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-05

• #2

我给你提供一个思路，不一定最优，供参考。
1.根据listbox中的字符串把图片从数据库中读出，放到Image中
2.Image的打印和预览都比较方便。
Image的打印用这个函数就可以了：
Printer.Canvas.StretchDraw();

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-05

• #3

思路我知道，我要的就是代码，我对打印一点都不了解啊

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-05

• #4

用报表控件呀？？？

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-05

• #5

to app2001
那麻烦发个例子给我吧
wrl_001@tom.com

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-05

• #6

打印很简单的。我给你几句代码，你自己调整一下就行了。
uses Printers;
Printer.begin
Doc;
//开始打印
Printer.EndDoc;
//换页
Printer.NewPage;
//停止打印
Printer.Canvas.StretchDraw(Rect(ALeft, ATop, ARight, ABottom), Image1.Picture.Graphic);//大约图片Image1， ALeft, ATop, ARight, ABottom用于控制图片的大小和位置

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-06

• #7

发给你了

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-07

• #8

to ：app2001
没有收到啊！！！！！！！

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-08

• #9

因该是你信箱的问题，我到现在也一直没有收到被退回来的信

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-08

• #10

谢谢了 app2001
已经收到了，
电子邮件本来是以快的，居然等了两天，tom.com搞什么哦

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #11

to app2001
可以具体的聊一下吗？？？
qq:13633497

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #12

有问题的话，就直接回复好吗？俺这上班不方便上QQ

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-24

• #13

在你给的例子中ongetvalue事件中传入的参数是图片的路径，若我要传如一个
image.picture.bitmap参数呢？好象不是很支持啊？？？？？
实在研究不出来了，呵呵

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-29

• #14

to app2001
是我的问题太菜，不屑于回答吗？？？

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-29

• #15

使用 TfrReport.OnBeforePrint 事件:
MS: TMemoryStream;
begin
mS := TMemoryStream.Create;
Image1.Picture.Graphic.SaveToStream(ms);
MS.Position:=0;
if View.Name = 'Picture1' then
TfrPictureView(View).LoadFromStream(ms);
你看看这样行不行，兄弟，我也要干活赚钱填肚子的呀，不是总那么有空在这里答题的呀。

 

W

wrl_001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-12

• #16

多人接受答案了。