在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000598 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

java抽取word,pdf的四种武器

WEB环境下办公自动化文档修改痕迹保留的实现

在ASP程序中打印Excel报表的新方法

在VB中利用Word宏命令开发ASP组件

WEB打印大全

关于在页面中解决打印的几个问题

使用ASP和Word进行服务器端拼写检查

Microsoft Word 对象

用Delphi合并Word表格中单元格

用于Password录入的WebControl
发表文章
调用Word打印...

原作者:     提交人:qjg_qx     发布时间:04-01-29     文章类型:转贴     浏览量:1903
参考链结:http://    
关键字:Word|打印
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000598]

调用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>

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2020 Yup Studio, all rights reserved.  
78.125