Macros en powerplay

molivares

Curioso
A ver si me podéis ayudar, estoy automatizando
unos informes en Powerplay para que se impriman en automático y me encuentro dos problemas:
El primero es referente a la propia impresión. Los informes están echos en formato de papel horizontal (apaisado), sin
embargo al imprimir con la macro me lo saca en vertical y evidentemente se corta.
He estado buscando el método para cambiar el formato de hoja en el objeto a imprimir, pero NO lo localizo.
Para forzarle a usar la configuración del propio informes he usado \".ResetPrintOptionsToDefault\", sin cambios en el
resultado.
El segundo se refiere a la actualización de datos en los informes. Se da el caso en uno de ellos de que se necesita recargar
el nivel para que se incorporen nuevas líneas (nombres de clientes). Para ello uso el script que transcribo al final del
mnsaje.
El problema es que me inserta las nuevas filas, pero la anchura de la columna de las etiquetas de fila es muy corta y NO se
pueden leer.
Tampoco en este caso he encontrado la solución en los manuales que he consultado.
Gracias por todo
Miguel Olivares
********************************************
RUTINA RECARGA FILAS
********************************************
Sub Main_cli()
'Inicializacion
Dim objPPRep AS Object
Dim objCubeCat AS Object
Dim objRepPrt AS Object
SET objPPRep = CreateObject(\"CognosPowerPlay.Report\")
objPPRep.OPEN( \"C:\\COGNOS\\CL.ppr\")
objPPRep.visible( FALSE )
objPPRep.ExplorerMode = FALSE
objPPRep.ROWS.Remove
SET objCubeCat = objPPRep.Categorylist
objCubeCat.ADD 1,\"Cliente\"
objPPRep.ROWS.ADD objCubeCat
SET objRepPrt = objPPRep.Print()
objRepPrt.ResetPrintOptionsToDefault
objRepPrt.PrintEntirereport = TRUE
objRepPrt.PrintOut
SET objRepPrt = Nothing
SET objPPRep = Nothing
SET objPDF = Nothing
SET objPPDim1 = Nothing
END Sub
 
Arriba