asp调取Word打印的代码
|
调用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 （编辑：银川站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
