以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]打印问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80711)

--  作者:荟美绘姿
--  发布时间:2016/1/29 17:32:00
--  [求助]打印问题

发布后无法打印报表

请大侠帮忙解决一下下

[此贴子已经被作者于2016/1/29 17:33:35编辑过]

--  作者:大红袍
--  发布时间:2016/1/29 17:33:00
--  

什么报表?excel这样打印

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Wb.Saved = True
App.DisplayAlerts = False \'加上此行可禁止弹出合并前的提示
app.Visible = True
Ws.PrintPreview \'预览
\'ws.printout \'打印
app.quit


--  作者:荟美绘姿
--  发布时间:2016/1/29 19:40:00
--  

打钱WORD文件,打印控件代码如下:

Dim tm As String  = ProjectPath & "Attachments\\违法行为抄告书.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\违法行为抄告书.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("zhubiao"),tm,fl) \'定义一个WordReport
wrt.Build() \'生成报表

wrt.Show() \'显示报表

 

我在本机上是可以打印的,但把发布的系统复制到别的电脑就不能打印了


--  作者:大红袍
--  发布时间:2016/1/29 19:43:00
--  

 不能打印,报什么错?

 

 如果人家安装的不是完整版的word,生成的时候,是会假死的。


--  作者:荟美绘姿
--  发布时间:2016/1/29 19:52:00
--  
是死机,有什么办法解决吗?
--  作者:大红袍
--  发布时间:2016/1/29 20:14:00
--  
以下是引用荟美绘姿在2016/1/29 19:52:00的发言:
是死机,有什么办法解决吗?

 

安装完整版的MS Office才可以。