Stampa da CR

[gkcuvb]

Ho creato una web form con il mio bel report con la sua brava barra degli strumenti fra cui compaiono i pulsanti di stampa e di esportazione. Bene. Se clicco su uno di questi due pulsanti il report sparisce dalla form e non stampa nè esporta un bel niente! Mi sapete dire cosa sbaglio?!?!!?

[sosan1]

posta il codice...

comunque per esportarlo...
Sub Private Sub EsportainPDF()

Dim oStream As New System.IO.MemoryStream

oStream = report.ExportToStream(CrystalDecisions.Shared.Expo rtFormatType.PortableDocFormat)

Response.Clear()

Response.Buffer = True

Response.ContentType = "application/pdf"

Response.BinaryWrite(oStream.ToArray())

Response.End()

End Sub

[gkcuvb]

OK, ce l'ho fatta ad esportarlo aggiungendo un altro bottone sulla form a associando a questo il seguente codice:

Private Sub btStampa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btStampa.Click
Dim crReportDocument As ReportDocument 'Ind_ODLGen
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim Fname As String

crReportDocument = New ReportDocument 'Ind_ODLGen

crReportDocument.Load(strPath & "Ind_ODLGen.rpt")
Dim MyDs As New CLStatistiche.Indice
Dim Calcolads As New CLStatistiche.St_ODL
MyDs = Calcolads.ODLGenerati("")
crReportDocument.SetDataSource(MyDs)
Fname = "C:\GST.net\Export\" & Session.SessionID.ToString & ".pdf"
crDiskFileDestinationOptions = New DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = Fname
crExportOptions = crReportDocument.ExportOptions
With crExportOptions
.ExportDestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
crReportDocument.Export()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.WriteFile(Fname)
Response.Flush()
Response.Close()

System.IO.File.Delete(Fname)

End Sub

Adesso però mi apre il file in formato pdf sulla stassa finestra, ossia se chiudo il file mi chiude anche l'applicazione. Non è possibile aprire il file in una nuova finestra?
Grazie

[sosan1]

Devi avere una pagina (pag1.aspx) che apre la pagina che conterrà il report (pag2.asp)

la prima contiene questo script ovvero genera uno script JavaScript che apre una pop up


Private Sub cmdStampa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStampa.Click
Dim s As String
s = "<script language=Javascript>window.open('../Stampe/Lista.aspx','','width=800,height=600,resizable=yes ')</script>"

Page.RegisterClientScriptBlock("clientScript", s)


End Sub


La seconda pagina contiene il crystal r. viewer e tutto il codice scritto nei precedenti post

In questo modo il pdf verrà generato e caricato nella pop up.