作家
登录

asp调用Word打印的代码

作者: 来源:www.28hudong.com 2013-03-30 08:40:34 阅读 我要评论

调用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) for i = 1 to colnum 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 tabRow = 2 For j = 2 to intNumrows 'ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Borders.Enable=False objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.InsertAfter theArray(1,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.ParagraphFormat.alignment=1 objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.InsertAfter theArray(2,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.ParagraphFormat.alignment=1 objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter FormatCurrency(theArray(3,j)) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=2 objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter theArray(4,j) 'objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter Chr(10) objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1 tabRow = tabRow + 1 Next ' objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Regards,") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Daryl B. Morticum") 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Sales Associate") 'objWordDoc.Application.ActiveDocument.Envelope.Insert Address ' objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter("由廖家远设计") objWordDoc.Application.ActiveDocument.SaveAs "tempSample.doc", 0,False,"",True,"",False,False,False, False,False 'objWordDoc.Application.printout() End Sub </script>

  推荐阅读

  关于asp+access的安全问题分析

众所周知,asp+access最大的安全隐患在于access数据库可以被别人 下载,而现在提供的很多asp空间都是只支持access数据库,这样一来, asp+access的安全问题就显得很突出了。 1.Access数据库的存储隐患 >>>详细阅读


本文标题:asp调用Word打印的代码

地址:http://www.17bianji.com/kaifa2/ASP/32560.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)