调用word打印问题

alan817 2004-09-01 02:06:43
在网上找了一段调用word打印代码,但是点击打印 状态拦还是提示有错误
哪位帮忙指正一下,谢谢!


<script language="vbscript">
Sub buildDoc(titles)

set table = document.all.data //把html文档中的表格data的结构和数据赋值给table

row = table.rows.length //row为table的行数

column = table.rows(1).cells.length //colnum为table的列数

Set objWordDoc = CreateObject("Word.Document") //创建一个Word.Document的对象

Dim theArray(10,10000) //定义数组变量,存放表格中的数据,10是虚拟列数,10000是虚拟行数

//以下两层for循环将html文档的表格中的纯文本数据赋值给数组

for i=0 to row-1

for j=0 to column-1

theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT

next
next

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(titles) //显示表格标题
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("") //输出标题后回车换行
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range

//以下With代码段设置标题属性

With rngPara
.Bold = True //将标题设为粗体
.ParagraphFormat.Alignment = 1 //将标题居中
.Font.Name = "Arial" //设定标题字体
.Font.Size = 12 //设定标题字体大小
End With



Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)

//以下for循环输出表头
for i = 1 to column

objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1

next

//以下两层for循环输出表格实际内容
for i =1 to column
for j = 2 to row
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1
Next
Next

objWordDoc.Application.ActiveDocument.SaveAs

End Sub
</script>

…… ……

<input name="printBtn" id="printBtn" type="button" class="FlatButton" value="打印" onclick="buildDoc('<%=dataRs("names")%>')"
...全文
133 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
liujun999999 2004-09-09
  • 打赏
  • 举报
回复
应该是没有客户端的控件执行权限

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧