永发信息网

vb打印数据库中的图片

答案:3  悬赏:30  手机版
解决时间 2021-02-01 13:00
我将图片所有信息存到了ACCESS的OLE字段中了,现在想把图片及一些个人信息读出来形成一个类似于报告的东西,然后进行打印但不知道该怎么弄,请各位高手出出主意。。。
不好意思,我没讲清楚,图片现在已经可以读出来并在picturebox中显示,我现在的主要问题是打印,怎么形成一个报告并能进行预览,打印

123ym123说的这个注意不错啊。。。呵呵,正常一点好不好!

这个分就送给47677447了,虽然不是我要的结果。
分数没法分开给,请大家谅解啊
最佳答案
我有试过 先把 longraw 转换成图片然后在加载到inage 不过图片大的话蛮慢的
Private Sub writefile()
Dim iStm As ADODB.Stream
Dim strings As String
gSQL = "select PIC from iqc_masklist where Part_no='AAA' and pic is not null "
Set gadoRS = gadoCN.Execute(gSQL)
If gadoRS.RecordCount > 0 Then
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write gadoRS("PIC")
If Len(Dir$(PictBmp)) > 0 Then
Kill PictBmp
End If
.SaveToFile "D:\temp.jpg"
End With
Image1.Picture = LoadPicture("D:\temp.jpg")
iStm.Close
End If
gadoRS.Close
End Sub
全部回答
你还是借助报表工具吧 比如水晶报表 或者acticereport等等
1、在窗体中用picture 控件做为数据库中图片字段的呈现控件 picture.datasource =数据控件 (如:data) picture.datafield =字段名 2、直接打印图片 printer.paintpicture picture, 0, 0 printer.enddoc 这样就直接打印出图片了 printer.paintpicture 命令参数可以自己设置,确定图片的打印位置(x,y坐标)及图片是否缩放...
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
问渠哪得清如许,为有原头活水来出自本文的成
监控工程宝能查出海康poe摄像头的密码吗
在恋爱的过程当中你会不会喜欢上别人?如果喜
广州社保电脑号是什么
三国演义第二回中的董卓是个什么样子的人
求一首英文流行歌曲,MV 中有个美女在笼中像
仲义国际货物运输代理有限公司地址有知道的么
窒闷的意思是什么啊?知道的请说下!
【小额信用贷款条件】申请小额信用贷款的农户
全款买的房子,到银行抵押贷款,评估过了,大
跪求 夺命计程车插曲音乐
汽车那个一档,二档的“档”怎么翻译?
已否的意思是什么啊?知道的请说下!
艾滋病的易感人群是A.艾滋病患者B.艾滋病病毒
win7如何在分享到局域网的文件中给某个文件夹
推荐资讯
把爱错给了你 新版和旧版的不同之处
无线路由器怎么连接手机热点上网
从2个红球,2个黄球,1个白球中随机取出两个
飞丝炫彩造型坊地址有知道的么?有点事想过去
勾中的意思是什么啊?知道的请说下!
都市新娘婚纱照相馆地址好找么,我有些事要过
韩蒂娜内衣质量怎么样?能销售出去吗?我是小
人豪的意思是什么啊?知道的请说下!
Matlab的mapminmax是什么函数
北京一证通如何激活
恶卧的意思是什么啊?知道的请说下!
试铨的意思是什么啊?知道的请说下!
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?