烦烦烦,上次的问题还没有解决!如何在ASP里控制报表的打印???

novell 2000-06-13 04:59:00
烦烦烦,上次的问题还没有解决!如何在ASP里控制报表的打印???
...全文
114 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
「已注销」 2001-11-10
  • 打赏
  • 举报
回复
//以下纯属转贴
<script language="javascript">
function hiddenhead()
{
head.style.display="none"
}
function showhead()
{
head.style.display="block"
}
</script>
<label name=head id=head language=javascript onclick="return

hiddenhead()">
<a href=javascript:window.print()>打印</a>
下面这个放在正文中。也就是要打印的东西的上面一行就行了
<label name=table id=table language=javascript onmouseover="return

showhead()">
以上是无页眉页脚的代码

<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>
</Table>
<input type=button onclick="vbscript:buildDoc '',4" value="转换成

Word文档">
<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.InsertBef

ore("转换后的表格")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBef

ore("")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBef

ore("")

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

ws,4)

for i = 1 to colnum
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Ran

ge.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Ran

ge.ParagraphFormat.alignment=1
next
tabRow = 2

For j = 2 to intNumrows
'ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Border

s.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.SaveAs "tempSample.doc",

0,False,"",True,"",False,False,False, False,False
'objWordDoc.Application.printout()

End Sub
</script>

以上是转换成word的代码
idohim 2001-10-15
  • 打赏
  • 举报
回复
用vb做组件,不能用asp直接实现.
y1g1y1 2001-10-14
  • 打赏
  • 举报
回复
http://www.yueliangwan.com.cn/yf/PrintView/PrintView.htm

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧