Numero totale delle pagine help

lunedì 07 luglio 2008 - 12.22

aledindo Profilo | Newbie

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

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!

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 !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5