Sub Main()
    Dim objPPRep as Object
    Dim objRepPrt as Object
    Set objPPRep = CreateObject ("CognosPowerPlay.Report")
    objPPRep.Open "C:\CUBES UND BERICHTE\BEISPIEL2.PPR"
    Set objRepPrt = objPPRep.Print
    objRepPrt.PrintAllCharts = False
    objRepPrt.SetListOfRowsToPrint objPPrep.Rows
    objRepPrt.SetListOfLayersToPrint objPPRep.Layers
    objRepPrt.SetChartToPrint objPPRep.Graphs.Item(2)
    objRepPrt.IncludeLegend = True
    objRepPrt.ChartTitleOnAllPages = True
    objRepPrt.SummariesOnAllPages = True
    objRepPrt.AxisOnAllPages = True
    objRepPrt.Collate = True
    objRepPrt.Copies = 1
    objRepPrt.PrintOut
    objRepPrt.Copies = 2
    objRepPrt.PrintOut
    Set objRepPrt = Nothing
    Set objPPRep = Nothing
End Sub