通过asp实现打印功能，答对着立即给分

[wulin]

达到报表打印，不是打印整个页面，最好实现打印预览功能。

[liaogs]

是吗？
这分也太少了吧！
我可以给你提供一种方法，不过速度我就管不了了！
将要打印的内容在另外的页面里显示！
要不然，就生成Word文档吧！

[thatwind]

COM或者其他的dll，ocx，想要什么结果都行。

[lanying]

gz

[cccmx]

用formulaone 或者excle

[sagaman]

作一个组件。代码如下：
'******************************************************
Option Explicit
'local variable(s) to hold property value(s)
Private mvarshortfilename As Variant 'local copy
Private mvarfilename As Variant 'local copy




Public Property Get filename() As Variant
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.filename
If IsObject(mvarfilename) Then
Set filename = mvarfilename
Else
filename = mvarfilename
End If
End Property


Public Property Get shortfilename() As Variant
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.shortfilename
If IsObject(mvarshortfilename) Then
Set shortfilename = mvarshortfilename
Else
shortfilename = mvarshortfilename
End If
End Property




Public Sub savefile(filepath As Variant)
Dim ObjXl
Dim ObjXlBook
Dim sngrnd
Dim strtmp
Set ObjXl = CreateObject("Excel.Application")

Set ObjXlBook = ObjXl.Workbooks.Add

With ObjXlBook
.Worksheets(1).Range("B1").Value = "Pony"
.Worksheets(1).Range("B2").Value = "0001"
.Worksheets(1).Range("B3").Value = "Male"
.Worksheets(1).Range("B4").Value = "13602657747"
End With

again:
Randomize
sngrnd = Rnd(Now)
strtmp = CStr(sngrnd)
strtmp = Mid(strtmp, InStr(strtmp, ".") + 1, 6)

If Dir$(filepath & "\" & strtmp & ".xls") <> "" Then GoTo again

ObjXlBook.SaveAs filepath & "\" & strtmp & ".xls"
ObjXlBook.Close
Set ObjXlBook = Nothing
Set ObjXl = Nothing
mvarfilename = filepath & "\" & strtmp & ".xls"
mvarshortfilename = strtmp & ".xls"
End Sub


在asp文件中如下调用：
'***************************************************
<%
currentpath=server.MapPath(".")
set house=server.CreateObject("house.housereport")

house.SaveFile currentpath
%>
<h1>excel report test</h1>

<a href="<%=house.shortfilename %>">report</a>


'*************************************
另外，在适当的地方删除过时的临时文件


希望能给你帮助

[wulin]

现在，我只能给这些分，因为刚注册，可否提供代码吗？或说的详细些，请各位高人请教了。我会不断加分得

[y1g1y1]

http://ygyuan.go.163.com/
http://www.yueliangwan.com.cn/yf/PrintView/PrintView.htm