ASP打印Word代码

当前位置：首页 > 范文|应用文 > IT技术专栏 > 脚本栏目

ASP打印Word代码

来源：阅读：1609 次日期：2014-09-09 11:44:25

温馨提示：小编为您整理了“ASP打印Word代码”,方便广大网友查阅！

//保证可以运行js的情况下

<html>

<head>

<title>Build Document by Script</TITLE>

</HEAD>

</Tr>

</Tr>

</Tr>

</Tr>

</Tabld>

<BODY>

</BODY>

</HTML>

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

intNumrows = 4

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

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

' 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("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>

更多信息请查看IT技术专栏

上一篇：学习javascript（7）

下一篇：常用Javascript语句4

手机网站地址：ASP打印Word代码

由于各方面情况的不断调整与变化，提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！