服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp调用Word打印的代码

asp调用Word打印的代码

2019-10-15 10:17asp代码网 ASP教程

asp调用Word打印的代码

调用Word打印...

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

  1. <html>   
  2. <head>   
  3. <title>Build Document by Script</TITLE>   
  4. </HEAD>   
  5. <Table id="myData" border=1 align=center>   
  6. <Tr align=center>   
  7. <Td>产品名称</Td>   
  8. <Td>产品描述</Td>   
  9. <Td>产品单价</Td>   
  10. <Td>产品等级</Td>   
  11. </Tr>   
  12. <Tr align=center>   
  13. <Td>产品一</Td>   
  14. <Td>This is a test</Td>   
  15. <Td align=right>300.50</Td>   
  16. <Td>一级</Td>   
  17. </Tr>   
  18. <Tr align=center>   
  19. <Td>产品二</Td>   
  20. <Td>This is a test</Td>   
  21. <Td align=right>300.50</Td>   
  22. <Td>一级</Td>   
  23. </Tr>   
  24. <Tr align=center>   
  25. <Td>产品三</Td>   
  26. <Td>This is a test</Td>   
  27. <Td align=right>300.50</Td>   
  28. <Td>一级</Td>   
  29. </Tr>   
  30. </Tabld>   
  31. <input type=button onclick="vbscript:buildDoc '',4" value="build">   
  32. <BODY>   
  33. </BODY>   
  34. </HTML>   
  35. <script language="vbscript">   
  36. Sub buildDoc(theTemplate,intTableRows)   
  37. Dim Table1   
  38. set Table1 = document.all.myData   
  39. row = Table1.rows.length   
  40. Set objWordDoc = CreateObject("Word.Document")   
  41. ObjWordDoc.Application.Visible=True   
  42. Dim theArray(4,4)   
  43. 'Redim Preserve theArray(4,row)   
  44. colnum = Table1.rows(1).cells.length   
  45. for i=0 to row-1   
  46. for j=0 to colnum-1   
  47. theArray(j+1,i+1) = Table1.rows(i).cells(j).innerHTML   
  48. next   
  49. next   
  50. intNumrows = 4   
  51. objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("测试的表格")   
  52. objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")   
  53. objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")   
  54. Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range   
  55. With rngPara   
  56. .Bold = True   
  57. .ParagraphFormat.Alignment = 1   
  58. .Font.Name = "Arial"   
  59. .Font.Size = 12   
  60. End With   
  61. Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range   
  62. Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,intNumrows,4)   
  63. for i = 1 to colnum   
  64. objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)   
  65. objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1   
  66. next   
  67. tabRow = 2   
  68. For j = 2 to intNumrows   
  69. 'ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Borders.Enable=False   
  70. objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.InsertAfter theArray(1,j)   
  71. objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.ParagraphFormat.alignment=1   
  72. objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.InsertAfter theArray(2,j)   
  73. objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.ParagraphFormat.alignment=1   
  74. objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter FormatCurrency(theArray(3,j))   
  75. objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=2   
  76. objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter theArray(4,j)   
  77. 'objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter Chr(10)   
  78. objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1   
  79. tabRow = tabRow + 1   
  80. Next   
  81. ' objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1   
  82. 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")   
  83. 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")   
  84. 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Regards,")   
  85. 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")   
  86. 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Daryl B. Morticum")   
  87. 'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Sales Associate")   
  88. 'objWordDoc.Application.ActiveDocument.Envelope.Insert Address   
  89. ' objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter("由廖家远设计")   
  90. objWordDoc.Application.ActiveDocument.SaveAs "tempSample.doc", 0,False,"",True,"",False,False,False, False,False   
  91. 'objWordDoc.Application.printout()   
  92. End Sub   
  93. </script> 

延伸 · 阅读

精彩推荐