Macro to print Powerplay report with fit to page

[jvaneert]

Hi All,

Please help me, i want to have a macro that prints a powerplay report with the option fit to page.
Does someone have some macro code which i could use>?
Many thanks in advance.

Best regards,

Jules

 

[drlex]

Does FitToPage not work for you? See the macro help, but basically it's "objRepPrt.FitToPage = True".



soi la, soi carré

 

[jvaneert]

Hi DrLex.

I am a rookie with macro's so i even do not know what the macro should contain.
Could you gimme a example of something?
Thanks

Best regards,

Jules

 

[drlex]

Jules,
sure - here's the example straight out of the macro help (all rights reserved, etc)
This example sets the FitToPage property to True and prints the first display of the active report (ie report already open) - to change it to opening one, substitute these lines:
Set objPPRep = CreateObject("CognosPowerPlay.Report")
objPPRep.open "C:\Views\MyPPreport.ppr".
for
Set objPPRep = GetObject(,"CognosPowerPlay.Report")

Sub Main()
   Dim objPPRep as Object
   Dim objRepPrt as Object
   Set objPPRep = GetObject(,"CognosPowerPlay.Report")
   Set objRepPrt = objPPRep.Print()
   With objRepPrt
      .PrintAllCharts = False
      .SetListOfRowsToPrint objPPrep.Rows
      .SetListOfLayersToPrint objPPRep.Layers
      .SetChartToPrint objPPRep.Graphs.Item(1)
      .IncludeLegend = False
      .ChartTitleOnAllPages = True
      .SummariesOnAllPages = True
      .AxisOnAllPages = True
      .Collate = True
      .Copies = 1
      .FitToPage = True
      .PrintOut
   End With
   Set objRepPrt = Nothing
   Set objPPRep = Nothing

End Sub

soi la, soi carré

 

[jvaneert]

Hi DrLex,

Thanks for your macro,
it really helped me!

 

[drlex]

Jules, you're welcome.
If you're a rookie, have a look at the pdf that is installed with the cognos products - should be in the documentation folder - "pp_mac.pdf", which is the best place to start. If you have Visual Basic experience, it should be un morceau de gateau

soi la, soi carré