- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 打印图片 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19674)
-- 发布时间：2012/5/17 17:00:00
-- [求助] 打印图片
有一个表，内有一图片列，想把图片列循环打印到excel 表内，请问这个怎样实现呢
此主题相关图片如下：无标题.png
这是用getimage 的报错的提示
-- 发布时间：2012/5/17 17:43:00
-- [求助] 打印图片
求助！
-- 发布时间：2012/5/17 17:53:00
--
用例子说话吧。
-- 发布时间：2012/5/17 18:32:00
-- [求助] 打印图片
老大 这是例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.rar |
-- 发布时间：2012/5/18 8:23:00
-- [求助] 打印图片
老大 例子在上面
-- 发布时间：2012/5/18 8:35:00
--
我测试ok:
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Sheet(1,1).Value = New XLS.Picture(GetImage("1.png"))
Book.Save(projectpath & "test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = projectpath & "test.xls"
Proc.Start()
-- 发布时间：2012/5/18 8:44:00
-- [求助] 打印图片
Sheet(1,1).Value = New XLS.Picture(GetImage("1.png"))
额，狐爸 因为我是想实现 只打印选中状态的行，所以不能确定图片就是1.png。有可能是1.png 跟 3.png都打印。
请问这里怎么实现呢。1.png那里我是用了变量，所以报错了
-- 发布时间：2012/5/18 9:06:00
--
我用变量也没有问题的啊：
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim index As Integer = 1
Sheet(1,1).Value = New XLS.Picture(GetImage(index & ".png"))
Book.Save(projectpath & "test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = projectpath & "test.xls"
Proc.Start()
-- 发布时间：2012/5/18 9:11:00
--
你把这一行删除就行了：
book.Build() \'生成细节区
-- 发布时间：2012/5/18 9:28:00
-- [求助] 打印图片
狐爸 您看我上面打印按钮里的代码，是在循环里的，会报错 是什么问题啊？