Dim crxApp As CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report
Dim crxParamDef As CRAXDRT.ParameterFieldDefinition
Set crxApp = New CRAXDRT.Application
Set crxRpt = crxApp.OpenReport(ReportPathName)
29 crxRpt.ExportOptions.FormatType = crEFTPortableDocFormat
30 crxRpt.ExportOptions.DestinationType = crEDTDiskFile
31 crxRpt.EnableParameterPrompting = False
crxRpt.PaperSize = crPaperA4
With crxRpt
34 For Each crxParamDef In .ParameterFields
35 With crxParamDef
36 Select Case .Name
Case "{?Name}"
38 .ClearCurrentValueAndRange
40 .AddCurrentValue str(name)
53 End Select
54 End With
55 Next