Official release of PxPlus 2025 Update 1 (version 22.10) NOW available for download.
$app = New-Object -ComObject CrystalRuntime.Application
$report = $app.OpenReport("C:\temp\customers.rpt")
$report.EnableParameterPrompting = $false
$report.DisplayProgressDialog = $false
$report.DiscardSavedData() | Out-Null
$exportOpts = $report.ExportOptions
$exportOpts.DestinationType = 1
$exportOpts.FormatType = 31
$exportOpts.DiskFileName = "C:\temp\customers.pdf"
$exportOpts.PDFExportAllPages = $true
$report.Export($false)DEF OBJECT CR_APP,"CrystalRuntime.Application"
LET REPORT=CR_APP'OPENREPORT("C:\temp\customers.rpt")
LET REPORT'ENABLEPARAMETERPROMPTING=0
LET REPORT'DISPLAYPROGRESSDIALOG=0
LET DS=REPORT'DISCARDSAVEDDATA()
LET EXPORTOPTS=REPORT'EXPORTOPTIONS ! Opts Object EXPORTOPTS
LET EXPORTOPTS'DESTINATIONTYPE=1
LET EXPORTOPTS'FORMATTYPE=31 ! pdf
LET EXPORTOPTS'PDFEXPORTALLPAGES=-1
LET EXPORTOPTS'DISKFILENAME$="C:\temp\customers.pdf"
REPORT'EXPORT(0)Dim wordExportOptions As New ExportOptions()
wordExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
wordExportOptions.ExportDestinationOptions = dfDestinationOptions
wordExportOptions.ExportFormatType = ExportFormatType.WordForWindows
wordExportOptions.ExportFormatOptions = Nothing
rd.Export(wordExportOptions)