I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
vibby
vibby
il 23 febbraio 2001 alle 17:37
3 messaggi dal 06 settembre 2002
Io ho una pagina asp che richiama un report fatto con Cristal Report!!!
Tutto funziona bene, mi apre il report viewer e ok, ma nel caso che io non voglia aprire il report viewer ed andare subito in stampa come faccio????

Grazie Mille ed a risentirci!!
RispondiQuoting
alegan
alegan
il 26 febbraio 2001 alle 20:24
4 messaggi dal 26 febbraio 2001
Se sei registrato alla Seagate potresti inviargli una mail, dato che il loro supporto tecnico è molto curato, però io sono stato in grado di farlo e ti invio il codice:
-Dentro al tag <Html>:
<object ID="CRViewer" CLASSID="CLSID:C4847596-972C-11D0-9567 *
-00A0C9273C2A" width="0%" height="0%" codebase="../../../viewer/activeXViewer/ * activexviewer.cab#Version=8,0,0,224">
<param NAME="EnableRefreshButton" VALUE="1">
<param NAME="EnableGroupTree" VALUE="0">
<param NAME="DisplayGroupTree" VALUE="0">
<param NAME="EnablePrintButton" VALUE="1">
<param NAME="EnableExportButton" VALUE="0">
<param NAME="EnableDrillDown" VALUE="0">
<param NAME="EnableSearchControl" VALUE="0">
<param NAME="EnableAnimationControl" * VALUE="0">
<param NAME="EnableZoomControl" VALUE="0">
</object>

..e poi nel punto in cui ti serve(io l' ho messo nel body):
<script LANGUAGE="vbscript">
<!--
dim timer
dim printerTimer
dim pageOne
pageOne = True

Sub window_onLoad()
Page_Initialize()
end Sub

Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject *("WebReportBroker.WebReportBroker")

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."

CRViewer.reportName = location.href
else
Dim webSource
Set webSource = CreateObject *("WebReportSource.WebReportSource")

webSource.ReportSource = webBroker
webSource.URL = "http://nome_server/file.rpt"
WebSource.AddParameter "user0", "nomeutente"
WebSource.AddParameter "Password0", "Pwd"
WebSource.AddParameter "prompt0", "titolo"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub

Sub CRViewer_DownloadFinished(byval * downloadType)
if downloadType = 1 and PageOne then
PageOne = False
timer = window.setTimeout("OnMyTimeOut",1000)
end if
End Sub

Sub OnMyTimeOut()
if not CRViewer.IsBusy then
window.clearTimeout(timer)
CRViewer.PrintReport
printerTimer = window.setTimeout *("OnPrinterTimeOut",1000)
end if
End Sub

Sub OnPrinterTimeOut()
if not CRViewer.IsBusy then
window.clearTimeout(printerTimer)
end if
end sub
-->
</script>

..ti ho messo degli '*' dove il testo accapo deve invece essere inserito di seguito..

Buona programmazione
Ciao

RispondiQuoting
Daniele80
Daniele80
il 6 aprile 2002 alle 01:14
377 messaggi dal 08 settembre 2001
mi potreste dare una mano a capire coe stampare.

RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.