asp调用用Word打印的代码。
调用字打印…运行以下脚本需要将IE的安全级别设置为低，或者设置ActiveX控件在中间级别启用，不要忘记：
按脚本构建文档
产品名称
产品描述
产品单价
产品等级
产品1
这是测试。
三百点五零
班上的一个
产品两
这是测试。
三百点五零
班上的一个
产品三
这是测试。
三百点五零
班上的一个
子builddoc（模板，inttablerows）
昏暗的表
表1 = document.all.mydata集
行= table1.rows.length
集objworddoc = CreateObject（字。文件）
objworddoc。应用。可见=真
昏暗的阵列（4,4）
ReDim Preserve阵列（4行）
柱= table1.rows（1）。cells.length
我row-1 = 0
J = 0 colnum-1
阵列（j + 1，我+ 1）= table1.rows（我）。细胞（J）.innerHTML
下一个
下一个
intnumrows = 4
objworddoc.application.activedocument.paragraphs.add.range.insertbefore（试验台）
objworddoc.application.activedocument.paragraphs.add.range.insertbefore（）
objworddoc.application.activedocument.paragraphs.add.range.insertbefore（）
集rngpara = objworddoc.application.activedocument.paragraphs范围（1）。
与rngpara
粗体＝真
paragraphformat.alignment = 1。
。font.name =宋体
font.size = 12。
结束
集rngcurrent = objworddoc.application.activedocument.paragraphs范围（3）。
集tabcurrent = objworddoc.application.activedocument.tables.add（rngcurrent，intnumrows，4）
我= 1柱
objworddoc.application.activedocument.tables（1），行（1）。细胞（I）Range.InsertAfter theArray（I，1）。
objworddoc.application.activedocument.tables（1），行（1）。细胞（我）。范围。paragraphformat对齐= 1。
下一个
tabrow = 2
J = 2 intnumrows
objworddoc.application.activedocument.tables（1），Rows（tabrow）。边界。使= false
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（1）。Range.InsertAfter阵列（1，j）
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（1）。范围。paragraphformat对齐= 1。
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（2）。Range.InsertAfter阵列（2，j）
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（2）。范围。paragraphformat对齐= 1。
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（3）。Range.InsertAfter FormatCurrency（阵列（3，j））
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（3）。范围。paragraphformat对齐= 2。
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（4）。Range.InsertAfter阵列（4，j）
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（4），Range.InsertAfter Chr（10）
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（4）。范围。paragraphformat对齐= 1。
tabrow = tabrow + 1
下一个
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（4）。范围。paragraphformat对齐= 1。
objworddoc.application.activedocument.paragraph.add.range.insertafter（）
objworddoc.application.activedocument.paragraph.add.range.insertafter（）
objworddoc.application.activedocument.paragraph.add.range.insertafter（问候）
objworddoc.application.activedocument.paragraph.add.range.insertafter（）
objworddoc.application.activedocument.paragraph.add.range.insertafter（达丽尔B. morticum ）
objworddoc.application.activedocument.paragraph.add.range.insertafter（销售人员）
objworddoc.application.activedocument.envelope.insert地址
objworddoc.application.activedocument.paragraphs.add.range.insertafter（由廖佳元设计）
objworddoc.application.activedocument.saveas tempsample .doc
objworddoc.application.printout（）
端子