您正在使用IPV4(3.236.214.224)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】618云上GO!云服务器限时秒杀,1核2G首年95元!       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 建党节 9
2021年 建军节 40
2022年 元 旦 193
2022年 春 节 224
 
  • 您现在的位置:首页 >> ASP >> 内容

    asp调用Word打印的代码

    内容摘要: htmlheadtitleBuild Document by Script/TITLE/HEADTable id='myData' border=1 align=centerTr align=centerTd产品名称/TdTd产品描述/TdTd产品单价/TdTd产品等级/Td/TrTr align=centerTd产品一/TdTdThis is a test......

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

    手机扫描二维码可直达本页
      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2021/6/15 发布时间:12:34:56 点击:32 录入:齐天大圣
  • 上一篇:asp中将相对路径转换为绝对路径的函数代码
  • 下一篇:限制上传文件类型
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.5 Build 21.06.17(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021