Foros
Nuevos mensajes
Buscar en foros
Acceder
Regístrate
Novedades
Buscar
Buscar
Buscar solo en títulos
De:
Menú
Acceder
Regístrate
Install the app
Instalar
Foros
Software de Gestión
Business Intelligence
Macros en powerplay
JavaScript está desactivado. Para una mejor experiencia, por favor, activa JavaScript en el navegador antes de continuar.
Estás utilizando un navegador obsoleto. Este u otros sitios web pueden no ser mostrados correctamente.
Debes actualizarlo o utilizar un
navegador alternativo
.
Responder al tema
Mensaje
<blockquote data-quote="molivares" data-source="post: 1321" data-attributes="member: 230"><p>A ver si me podéis ayudar, estoy automatizando</p><p>unos informes en Powerplay para que se impriman en automático y me encuentro dos problemas:</p><p>El primero es referente a la propia impresión. Los informes están echos en formato de papel horizontal (apaisado), sin</p><p>embargo al imprimir con la macro me lo saca en vertical y evidentemente se corta.</p><p>He estado buscando el método para cambiar el formato de hoja en el objeto a imprimir, pero NO lo localizo.</p><p>Para forzarle a usar la configuración del propio informes he usado \".ResetPrintOptionsToDefault\", sin cambios en el</p><p>resultado.</p><p>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</p><p>el nivel para que se incorporen nuevas líneas (nombres de clientes). Para ello uso el script que transcribo al final del</p><p>mnsaje.</p><p>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</p><p>pueden leer.</p><p>Tampoco en este caso he encontrado la solución en los manuales que he consultado.</p><p>Gracias por todo</p><p>Miguel Olivares</p><p>********************************************</p><p>RUTINA RECARGA FILAS</p><p>********************************************</p><p>Sub Main_cli()</p><p>'Inicializacion</p><p>Dim objPPRep AS Object</p><p>Dim objCubeCat AS Object</p><p>Dim objRepPrt AS Object</p><p>SET objPPRep = CreateObject(\"CognosPowerPlay.Report\")</p><p>objPPRep.OPEN( \"C:\\COGNOS\\CL.ppr\")</p><p>objPPRep.visible( FALSE )</p><p>objPPRep.ExplorerMode = FALSE</p><p>objPPRep.ROWS.Remove</p><p>SET objCubeCat = objPPRep.Categorylist</p><p>objCubeCat.ADD 1,\"Cliente\"</p><p>objPPRep.ROWS.ADD objCubeCat</p><p>SET objRepPrt = objPPRep.Print()</p><p>objRepPrt.ResetPrintOptionsToDefault</p><p>objRepPrt.PrintEntirereport = TRUE</p><p>objRepPrt.PrintOut</p><p>SET objRepPrt = Nothing</p><p> SET objPPRep = Nothing</p><p> SET objPDF = Nothing</p><p> SET objPPDim1 = Nothing</p><p>END Sub</p></blockquote><p></p>
[QUOTE="molivares, post: 1321, member: 230"] 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 [/QUOTE]
Nombre
Verificación
¿Cuanto es 4-3+2?
Responder
Foros
Software de Gestión
Business Intelligence
Macros en powerplay
Arriba
