VBS - Run Crystal Report with Parameters

Here is an example of passing parameters to the report

https://www.experts-exchange.com/questions/24572097/Pass-3-Parameters-to-crystal-report-from-form-TextBoxes.html

mlmcc

I didn't find any code within that linked question/answer or the link ref'd in the question/answer that will work with my vb script. I need to know where to set the parameter in the script (in or outside of the With statement?) and the basic syntax that i need to use to make it work.

objReport.SetParameterValue("End Date", "1/1/2010")
- Error: Cannot use parenthesis when calling a Sub

Try

objReport.SetParameterValue "End Date", "1/1/2010"

Error: Object doesn't support this property or method: 'objReport.SetParameterValue'

There is 1 parameter for this report named "End Date" in Crystal.

Does VBS provide any options when you type in objReport. ?

I don't use VBS so I don't know how it is done.

Are you trying to use the RDC (CRAXDRT.DLL)?

mlmcc

No, I am writing this script in notepad.
My code is posted above, I am not using any type of remote connection to call a DLL.

The RDC is not a remote connection.  It is the Report Design Component and the API for using Crystal.

My question is, what Crystal application object is being created here
Set objCRApp= WScript.CreateObject("CrystalRunTime.Application")

It seems to be the RDC application object.

Look for this file
crsdk_net_doc.chm

On my system it is here
C:\Program Files\Business Objects\Crystal Reports 11.5\Help\en\crsdk_net_doc\doc

You can then examine the parameter class and see how values are passed in VB.

mlmcc

Oops, wrong interpretation.
I checked that help file and don't see any VBS code that can help me with my problem.

I see a lot of VB6 ref's but that isn't helping me to determine the correct VBS syntax to use.

There is very limited help for VBS with Crystal.  I don't believe they ever really intended it to be run that way.  You will be using the same dll with VBS as with VB6 or VB.Net.  The best you can probably get is to look at the references and see the methods used then try to use a similar construct.

I don't recall having ever seen a VBS example ont he Crystal site.

mlmcc

I agree with you, but I have limited resources here for automating/scheduling Crystal reports and would like to just finish up this last piece of my code to include report parameters.

I have searched and searched the web and find many posts of where this same type of problem has come up, but I have yet to find a solution.

That worked!! Thank you very much for that reference.
This VBS now runs the crystal report, includes parameters, saves to a disk file location and emails the report file.

Dim Appn
Dim Report
Dim FSO
Dim Path
Dim ReportName
Dim OutputFile
Dim DiskFilePath
Dim Param1
Dim Param1Name
Dim EmailAddr
Dim EmailAttach
Dim FullOutputPath
Dim EmailSubj
Dim EmailBody
 
On Error Resume Next

'**********************************************************************************************
'Define variables
'**********************************************************************************************
	ReportName = "C:\SampleCrystal\Test.rpt"
	DiskFilePath = "C:\SampleCrystal\"
	OutputFile = "SampleFinances"
	FileFormat = ".pdf"
	Param1Name = "End Date"
	Param1 = "2011-06-06 00:00:00"
	
	EmailAddr  = "yourname@whatever.com"
	EmailSubj = "Weekly Report File: "
	EmailBody = "Test: Please see the attached weekly report file."

'**********************************************************************************************
'Open report
'********************************************************************************************** 
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Set Appn = CreateObject("CrystalRuntime.Application")
 	Set Report = Appn.OpenReport(ReportName)
 	
	Path = OutputFile & "_" & Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now)
	FullOutputPath = DiskFilePath & Path & FileFormat
	
'**********************************************************************************************
'Report parameters
'********************************************************************************************** 
	Report.ParameterFields.GetItemByName(Param1Name).AddCurrentValue CDate(Param1)
	Report.EnableParameterPrompting = False

'**********************************************************************************************
'Report format
'********************************************************************************************** 
	Report.ExportOptions.FormatType = 31 ' crEFTPortableDocFormat
	Report.ExportOptions.DestinationType = 1 ' crEDTDiskFile
	Report.ExportOptions.PDFExportAllPages = True
	Report.ExportOptions.DiskFileName = FullOutputPath 
	Report.Export (False)

'**********************************************************************************************
'Email report
'********************************************************************************************** 	
	Set objOutl = CreateObject("Outlook.Application")
	Set objMailItem = objOutl.CreateItem(olMailItem)
	objMailItem.Subject = EmailSubj & Mid(FullOutputPath, 18, 29) 
	objMailItem.Body = EmailBody
	'objMailItem.Display
	objMailItem.Recipients.Add EmailAddr
	objMailItem.Attachments.Add FullOutputPath
	objMailItem.Send

'**********************************************************************************************
'Object clean-up
'********************************************************************************************** 	
	Set FSO = Nothing
	Set Appn = Nothing
	Set Report = Nothing
	Set objOutl = Nothing
	Set objMailItem = Nothing

Select allOpen in new window

Great.  I'll save this as a reference for Crystal/VBS questions in the future

mlmcc