主题：[求助] 打印图片

有一个表，内有一图片列，想把图片列循环打印到excel 表内，请问这个怎样实现呢 
此主题相关图片如下：无标题.png

这是用getimage 的报错的提示

求助！

用例子说话吧。

老大 这是例子

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

老大 例子在上面

我测试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()

Sheet(1,1).Value = New XLS.Picture(GetImage("1.png"))  
额，狐爸 因为我是想实现 只打印选中状态的行，所以不能确定图片就是1.png。有可能是1.png 跟 3.png都打印。
请问这里怎么实现呢。1.png那里我是用了变量，所以报错了 

我用变量也没有问题的啊：

 

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()

 

 

 

你把这一行删除就行了：

 

book.Build() '生成细节区

 

狐爸 您看我上面打印按钮里的代码，是在循环里的，会报错 是什么问题啊？