使用ASP调用Word进行打印的代码

发布时间：2023-09-15 15:00:52 所属栏目：Asp教程来源：

导读：调用Word打印...

运行下列的脚本需要将IE的安全级别设为低，或在中级安全级别下将那个ActiveX控件设为启用，别忘记了：

<html>

<head>

<title>Build Document by Script</TITLE>

</HEAD>

<T

调用Word打印...

运行下列的脚本需要将IE的安全级别设为低，或在中级安全级别下将那个ActiveX控件设为启用，别忘记了：

<html>

<head>

<title>Build Document by Script</TITLE>

</HEAD>

<Table id="myData" border=1 align=center>

<Tr align=center>

<Td>产品名称</Td>

<Td>产品描述</Td>

<Td>产品单价</Td>

<Td>产品等级</Td>

</Tr>

<Tr align=center>

<Td>产品一</Td>

<Td>This is a test</Td>

<Td align=right>300.50</Td>

<Td>一级</Td>

</Tr>

<Tr align=center>

<Td>产品二</Td>

<Td>This is a test</Td>

<Td align=right>300.50</Td>

<Td>一级</Td>

</Tr>

<Tr align=center>

<Td>产品三</Td>

<Td>This is a test</Td>

<Td align=right>300.50</Td>

<Td>一级</Td>

</Tr>

</Tabld>

<input type=button onclick="vbscript:buildDoc '',4" value="build">

<BODY>

</BODY>

</HTML>

<script language="vbscript">

Sub buildDoc(theTemplate,intTableRows)

Dim Table1

set Table1 = document.all.myData

row = Table1.rows.length

Set objWordDoc = CreateObject("Word.Document")

ObjWordDoc.Application.Visible=True

Dim theArray(4,4)

'Redim Preserve theArray(4,row)

colnum = Table1.rows(1).cells.length

for i=0 to row-1

for j=0 to colnum-1

theArray(j+1,i+1) = Table1.rows(i).cells(j).innerHTML

next

next

intNumrows = 4

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("测试的表格")

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")

Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range

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,intNumrows,4

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!