Use Macro to filter a report

[suchis]

I would like to know how to filter a report by using a Macro.

 

[CognosProfessional]

Have you checked out the macro cookbook?

CP

 

[Recce]

Hi CognosProfessional, are you refering to the Macro help files because, I am not familiar with the Macro cookbook. Where do we find this ? :->

 

[lincon]

In Cognos install CD,there are many books about cognos products.

 

[CognosProfessional]

here is how to choose the filter of a report to use "black" since there are many colors of wrenches, and would like each color run with the same report separately and saved to a pdf.

Sub Main()
Dim objImpApp as Object
Dim objImpRep as Object
Dim objPublishPDF as Object
Dim FinalFilePathName as String
'*************************
Set objImpApp = CreateObject("Impromptu.Application&quot
objImpApp.Visible True
objImpApp.OpenCatalog "\\ServerName\SN1\Rpts\catalogs\HDW.cat","creator",,"dbase","password"
Set objImpRep = objImpapp.OpenReport("\\ServerName\SN1\Rpts\pdfs\Wrenches.imr","black&quot
objImpRep.Retrieveall
Set objPublishPDF = objImpRep.PublishPDF
objPublishPDF.Publish("\\ServerName\SN1\Rpts\PDF\Hardware\black\Wrenches_black.pdf&quot
objImpRep.CloseReport
Set objImpRep = objImpapp.OpenReport("\\ServerName\SN1\Rpts\pdfs\Wrenches_QTR.imr","black&quot
objImpRep.Retrieveall
Set objPublishPDF = objImpRep.PublishPDF
objPublishPDF.Publish("\\ServerName\SN1\Rpts\PDF\Hardware\black\Wrenches_black_QTR.pdf&quot
objImpRep.CloseReport
objImpApp.Quit
Set objImpRep = Nothing
Set objImpApp = Nothing
End Sub
---------------------------------

CP

 

[Recce]

Cool Code CP, thanks for this ! :->