- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Excel报表打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39728)
-- 发布时间：2013/8/31 10:23:00
-- Excel报表打印
建了一个EXcel报表模板
然后用代码生成报表，成功了。代码如下：
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Ean13
Bar.Code = CurrentTable.Current("货号码")
Bar.QuietZoneWidth = 2
Bar.AddCheckSum = False
Bar.DisplayChecksum = False
Bar.DisplayStartStopChar = False
bar.SaveImage(ProjectPath & "Images\\myimg.wmf",500)
Dim Bar1 As New BarCodeBuilder
Bar1.Symbology = Barpro.Symbology.Code128
Bar1.Code = CurrentTable.Current("产品条码")
Bar1.BarRatio = 1.5
Bar1.BarHeight = 8
Bar1.QuietZoneWidth = 3
bar1.SaveImage(ProjectPath & "Images\\myimg1.wmf",500)
\'生成Excel报表:
Dim Book As New XLS.Book(ProjectPath & "Attachments\\标签模板.xls")
Book.Build()
Dim sheet As XLS.Sheet = Book.Sheets(0)
sheet(14,1).Value = New XLS.Picture(GetImage(ProjectPath & "Attachments\\洗涤标志1.bmp"),2,2,30,30)
Book.Save(ProjectPath & "Reports\\标签.xls")
Dim proc As new Process
proc.File = ProjectPath & "Reports\\标签.xls"
proc.Verb = "print"
proc.Start()
想更进一步，直接打印，加了一行代码（上面粗体部分）
报表可以正常生成，却无法打印，错误提示为：
“没有应用程序与此操作的指定文件有关联”
而手工打开生成的报表以后又能正常打印
请教，这是怎么回事？
-- 发布时间：2013/8/31 10:25:00
--
是否安装的不是完整版Office
-- 发布时间：2013/8/31 10:25:00
--
没有安装excel?
你双击电脑中某个excel文件，看看能否打开。
-- 发布时间：2013/8/31 10:30:00
--
所有Excel文件都能正常打开，并且能够正常打印
用这段代码生成的报表文件也能正常打开，并且能用Excel的菜单正常打印
-- 发布时间：2013/8/31 10:48:00
--
没有道理，直接做个例子发上来测试看看。
-- 发布时间：2013/8/31 11:39:00
--
是不是压缩包传不上来？
或者文件大小有限制？
-- 发布时间：2013/8/31 11:40:00
--
文件太大请分卷压缩.
-- 发布时间：2013/8/31 11:45:00
--
可以单独做个小的例子就行，能再现这个错误就行了，不用整个项目上传的。
-- 发布时间：2013/8/31 11:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:标签.zip |
复制基础数据表的“产品条码”粘贴到标签表的“产品条码”，然后按Button1
-- 发布时间：2013/8/31 11:56:00
--
你系统问题，我测试正常。