Stampa su file CR 8.5 e VB6

lunedì 20 agosto 2007 - 14.00

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

ciskixe Profilo | Newbie

2 messaggi | Data Invio: lun 20 ago 2007 - 14:00

Ciao a tutti, ho neccessità di esportare un report su file ma anche se imposto la proprietà destination a 2, indico il nome e il path dove salvare continua a stamparlo a monitor... qualcuno mi sa dare qualche dritta?

Grazie!

freeteo Profilo | Guru

6.542 messaggi | Data Invio: dom 26 ago 2007 - 16:55

ciao,
ma dopo aver impostato le proprieta' di esportazione, chiami il metodo "export" dell'oggetto Report ?
prova a postare 1po di codice cosi' aiuta a capire...grazie
ciao.

Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo

ciskixe Profilo | Newbie

2 messaggi | Data Invio: lun 27 ago 2007 - 08:08

Ciao freeteo, innanzitutto ti voglio ringraziare per aver risposto.
L'oggetto CrystalReport in questione non supporta il metodo export; ti posto il codice che utilizzo:

Dim Data() As String
Dim i As Integer
Dim connectionStr As String

location = "T:\00upload\Traffico\"
connectionStr = "ODBC;SRVR=SYB2;UID=IG_USER;PWD=IG_USER;Database=DES;DSN=SYB2;Driver={SQL SERVER}"
Data = Split(s, "-")
Restore_Properties

crRpt.ReportFileName = App.Path & "\TRA52CSN4.rpt"
crRpt.SubreportToChange = ""
crRpt.Formulas(0) = "date_to= date(" & Data(anno) & ", " & Data(mese) & ", " & Data(giorno) & ")"
sqlstm = "SELECT * FROM ................. "

crRpt.SQLQuery = sqlstm

crRpt.Connect = connectionStr

crRpt.WindowTitle = "TRA52CSN " & Data(giorno) & "/" & Data(mese) & "/" & Data(anno)
crRpt.Connect = connectionStr
'SubReport 1 - Totali marketing e generale
crRpt.SubreportToChange = "TraTot.rpt"
crRpt.Connect = connectionStr
crRpt.SQLQuery = "exec ReadTraTot2 " & rptRecordSet.Fields("uid")
crRpt.StoredProcParam(0) = rptRecordSet.Fields("uid")

' SubReport 2 - Regolarita
crRpt.SubreportToChange = "Regolarita"
crRpt.Connect = connectionStr
crRpt.Formulas(0) = "Giorno=" & Data(giorno)

crRpt.SQLQuery = "SELECT * FROM ....................."

'Lancio report principale

crRpt.SubreportToChange = ""
FileName = rptRecordSet.Fields("rptname").Value '& ".pdf"
crRpt.Destination = rptToFile
crRpt.PrintFileType = 7

crRpt.PrintFileName = location & FileName
printReportTxt.Text = crRpt.PrintReport

Inoltre vorrei utilizzare gli oggetti di CRAXDRT ma non so come impostare i dati dei subreports..

Help me please... :(

Grazie mille..

freeteo Profilo | Guru

6.542 messaggi | Data Invio: gio 30 ago 2007 - 22:08

ciao,
mi posti il codice dove crei l'oggetto "crRpt" ?

io cmq di solito usavo codice simile a queto:

Dim appl As New CRAXDRT.Application
Dim rep As CRAXDRT.Report

Set rep = appl.OpenReport(App.Path & "\report.rpt", 1)
With rep.ExportOptions
         .Reset
         .DiskFileName = App.Path & "\USAA.PDF"
         .DestinationType = crEDTDiskFile
         .FormatType = crEFTPortableDocFormat  
End With

rep.Export False

o qualcosa del genere (putroppo adesso non ho disponibili i sorgenti vb6) cmq sia mi muovevo con un CRAXDRT.Report e poi da li lo esportavo ( o stampavo su file con "printtofile" adesso non ricodo esattamente)
ciao.

Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !