Eportazione Automatica CrystalReport

lunedì 09 giugno 2008 - 14.50

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

AleMac Profilo | Newbie

11 messaggi | Data Invio: lun 9 giu 2008 - 14:50

Salve a tutti,
Sto programmando in VB6!
ho un oggetto CrystalActiveXReportViewer, che funziona a meraviglia, però devo fare un esportazione automatica in html, senza far fare niente all'utente, sono riuscito ad automatizzare i passaggi fino alla creazione del report ed all'evento click sull'ExportButton, il problema è che non riesco da codice a farli fare i seguenti due passaggi e ad impostarli la directory di destinazione e il formato di esportazione, qualcuna sa aiutarmi?

questo codice l'ho inserito alla fine del processo che mi crea il report:

If bInviaEmailAut = True Then

Dim strPathProva As String
strPathProva = "C:\Documenti\" & "Aut" & Format$(Now, "yymmdd") & ".rpt"

cReport.DisplayProgressDialog = False

cReport.ExportOptions.CharFieldDelimiter = ""
cReport.ExportOptions.CharStringDelimiter = ""

cReport.ExportOptions.DestinationType = CRAXDRT.CRExportDestinationType.crEDTDiskFile
cReport.ExportOptions.FormatType = crEFTHTML40
'CRAXDRT.CRExportFormatType.crEFTHTML40

cReport.ExportOptions.DiskFileName = strPathProva

cReport.Export

Unload Me

End If

freeteo Profilo | Guru

6.542 messaggi | Data Invio: mer 11 giu 2008 - 00:01

ciao,
devi impostare la proprieta "HTMLFileName" con il nome del file invece della "diskfilename", in questo modo:

    cReport.ExportOptions.DestinationType = CRAXDRT.CRExportDestinationType.crEDTDiskFile
    cReport.ExportOptions.FormatType = crEFTHTML40
    cReport.ExportOptions.HTMLFileName = "c:\tmp.html"

Crystal ha tutta una logica sua spesso, e quindi è facile avere dei problemi di questo tipo...

ciao.

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

AleMac Profilo | Newbie

11 messaggi | Data Invio: mer 11 giu 2008 - 09:38

Ciao,
Innanzitutto grazie di avermi risposto, ho provato ma niente, provo ad allegarti i due passaggi che devo bypassare da codice passandoli il path e il tipo di file (pdf o html che sia)

544x405 44Kb

420x200 13Kb

Grazie ancora
Ale

AleMac Profilo | Newbie

11 messaggi | Data Invio: mer 11 giu 2008 - 10:19

Inoltre ho visto girando un po' nel forum anche questo post:

http://www.dotnethell.it/forum/messages.aspx?ThreadID=23174

sai mica come codificarlo per VB6?

Grazie di nuovo
Ale

AleMac Profilo | Newbie

11 messaggi | Data Invio: mer 11 giu 2008 - 11:09

freeteo!! ce l'ho fatta!! ti posto la soluzione del batch dell'Esportazione automatica

If bInviaEmailPreav = True Then

Dim strPathProva As String
strPathProva = "C:\VDAU\Documenti\" & "Preav" & Format$(Now, "yymmdd") & ".pdf"

'///// Report is exported as PDF format
cReport.DisplayProgressDialog = False

cReport.ExportOptions.DiskFileName = strPathProva
cReport.ExportOptions.DestinationType = CRAXDRT.CRExportDestinationType.crEDTDiskFile
cReport.ExportOptions.PDFExportAllPages = True
cReport.ExportOptions.FormatType = crEFTPortableDocFormat
cReport.Export (False)

Unload Me

End If

Grazie Mille per l'Aiuto
Ale

freeteo Profilo | Guru

6.542 messaggi | Data Invio: mer 11 giu 2008 - 11:27

>freeteo!! ce l'ho fatta!! ti posto la soluzione del batch dell'Esportazione
>automatica
ok! se hai trovato utile una risposta accettala così chiudiamo il thread

>Grazie Mille per l'Aiuto
Grazie a te!

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 !