正文

asp调用Word打印的代码

︶ㄣ米米素材网 メ
米米素材网V管理员 / 阅读
0713

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

<html>

<head>

<title>Build Document by Script</TITLE>

</HEAD>

<Table id="myData" border=1 align=center>

<Tr align=center>

<Td>列表1</Td>

<Td>列表2</Td>

<Td>列表3</Td>

</Tr>

<Tr align=center>

<Td>产品一</Td>

<Td>This is a test</Td>

<Td align=right>300.50</Td>

</Tr>

<Tr align=center>

<Td>产品二</Td>

<Td>This is a test</Td>

<Td align=right>300.50</Td>

</Tr>

<Tr align=center>

<Td>产品三</Td>

<Td>This is a test</Td>

<Td align=right>300.50</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>