Python-Projekte/gctools/publish-reports.mac

Dim objApp As Object
Dim objRep As Object
Dim folder as String
Dim publish As String
Dim exportFormat As String

Sub Main ()
   Rem On Error Resume Next
   Set objApp = CreateObject("CognosPowerPlay.Application")
   rem folder = "C:\GAPS\Portal\System\Report"
   rem exportFormat = "pdf"
   rem publish = "C:\GAPS\Portal\daten"
   
   folder = GetField(Command, 1, ",")
   exportFormat = GetField(Command, 2, ",")
   publish = GetField(Command, 3, ",")

   Dim filename as String
   Dim exportFile as String
   Dim objPDF as Object
   
   filename = Dir(folder + "\")

   Do While filename <> ""
      If LCase(Right(filename, 4)) = ".ppr" Or LCase(Right(filename, 4)) = ".ppx" Then
         Set objRep = CreateObject("CognosPowerPlay.Report")
         objRep.Open(folder + "\" + filename)
         exportFile = publish + "\" + Left(filename, Len(filename) -4)
         Select Case exportFormat
            Case "pdf"
               
               Set objPDF = objRep.PDFFile(exportFile + "_0.pdf", True)
               With objPDF
                  .SaveEntireReport = True
                  .AxisOnAllPages = True
                  .ChartTitleOnAllPages = False
                  .IncludeLegend = False
               End With
               objPDF.Save

               For i = 1 to objRep.Layers.Count
                  Set objPDF = objRep.PDFFile(exportFile + "_" + i + ".pdf", True)
                  With objPDF
                     .SaveEntireReport = False
                     .SaveAllCharts = False                     
                     .AxisOnAllPages = True
                     .ChartTitleOnAllPages = False
                     .IncludeLegend = False
                     .SetListOfLayersToSave objRep.Layers.Subset(i, i)
                     .SetListOfRowsToSave objRep.Rows
                  End With
                  objPDF.Save
               Next

            Case "asc"
               objRep.SaveAs exportFile, 3
            Case "xls"
               objRep.SaveAs exportFile, 4
            Case "ppx"
               objRep.SaveAs exportFile, 5
            Case Else
               objRep.Publish publish, False, True, True    
         End Select
         objRep.Close
      End if


      filename = Dir
   Loop
   objApp.Quit
End Sub


Sub SaveAsXls (report As String)
   Dim objPPRep as Object
   Dim objPPRes as Object
   Set objPPRep = GetObject(, "CognosPowerPlay.Report")
   Set objPPRes = objPPRep.Columns.CumPercentOfBase _
   (objPPRep.Rows.Item("1996"))
   objPPRep.SaveAs "Mein neuer Bericht"
   Set objPPRep = Nothing
End Sub


Sub Pdf()
   Dim objPDF as Object
   Dim objPPRep as Object
   Set objPPRep = CreateObject ("CognosPowerPlay.Report")
   objPPRep.Open( "C:\COGNOS\BEISPIEL.PPR" )
   objPPRep.visible( TRUE )
   Set objPDF = objPPRep.PDFFile( "C:\COGNOS\PDFBEISPIEL" , True )
   With objPDF
      .SaveEntireReport = False
      .AxisOnAllPages = True
      .ChartTitleOnAllPages = False
      .IncludeLegend = True
      .SetChartToSave objPPRep.Graphs.Item( 1 )
      .SetListOfLayersToSave objPPRep.Layers
      .SetListOfRowsToSave objPPRep.Rows
   End With
   objPDF.Save
   Set objPPRep = Nothing
   Set objPDF = Nothing
End Sub