Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
Crystal Reports e reportistica
Numero totale delle pagine help
lunedì 07 luglio 2008 - 12.22
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
aledindo
Profilo
| Newbie
25
messaggi | Data Invio:
lun 7 lug 2008 - 12:22
Utilizzo VB.NET 2005 + CR XI e devo esportare in pdf un report
La mia domanda è:
Come faccio ad esportare nel pdf ad esempio solo l'ultima pagina del report?
In pratica c'è un modo per farmi restituire dal report il numero totale delle pagine?
Aiutatemi
Grazie
Dim crReportDocument As ReportDocument
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim Fname As String
crReportDocument = New ReportDocument
crReportDocument.Load("c:\test.rpt") 'Report origine
Fname = "c:\test.pdf" 'Documento esportato
crDiskFileDestinationOptions = New DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = Fname
crExportOptions = crReportDocument.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
crReportDocument.Export()
ale.orma
Profilo
| Junior Member
68
messaggi | Data Invio:
mer 9 lug 2008 - 14:30
Premetto che ho fatto la prova utilizzando CR XI e VB6, ma il codice non dovrebbe differire molto da quello che serve a te...
Per sapere il numero totale di pagine del tuo report fai così:
Dim pageGen As CRAXDRT.PageGenerator
Dim nPages as Long
Dim varGroupPath As Variant
varGroupPath = Array()
Set pageGen = crReportDocument.PageEngine.CreatePageGenerator(varGroupPath)
nPages = pageGen.Pages.Count
>Come faccio ad esportare nel pdf ad esempio solo l'ultima pagina
>del report?
Prova a fare così:
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
.PDFExportAllPages = False
.PDFFirstPageNumber = nPages
.PDFLastPageNumber = nPages
End With
crReportDocument.Export()
Spero di esserti stato d'aiuto, ciao!
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 !