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