急，asp下怎样设置水晶报表的默认显示比例为80%(或者按页宽显示)?
asp下怎样设置水晶报表的默认显示比例为80%(或者按页宽显示)? 问题点数：0、回复次数：1Top
1 楼madpolice（午夜狂龙）回复于 2005-04-01 12:53:56 得分 0
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Window_Onload
'自动全屏幕窗口
top.window.moveTo 0,0
top.window.resizeTo screen.availWidth,screen.availHeight
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("CrystalReports10.WebReportBroker.1")
if ScriptEngineMajorVersion < 2 then
window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."
else
Dim webSource
Set webSource = CreateObject("CrystalReports10.WebReportSource.1")
webSource.ReportSource = webBroker
webSource.URL = "RDCrptserver10.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
CRViewer.Zoom 80
End Sub
-->
</SCRIPT>
Top
