[RESUELTO] Repetir filas y columnas al imprimir.

[gonzispina]

Estoy creando una planilla para mostrar los datos en forma de cuadro de doble entrada. Necesito que al momento de imprimir me repita la fila que tiene el nombre de los campos y la columna de la izquierda
en todas las pàginas.

El código que estoy usando es este:

Código: Seleccionar todo

Dim mPrintOptions(2) As Object
 Dim OO_Dispatcher As Object
 Set OO_Dispatcher = oServiceManager.createInstance("com.sun.star.frame.DispatchHelper")
 Set mPrintOptions(0) = MakePropertyValue(oServiceManager, "PrintArea", "")
 Set mPrintOptions(1) = MakePropertyValue(oServiceManager, "PrintRepeatRow", "$A$2")
 Set mPrintOptions(2) = MakePropertyValue(oServiceManager, "PrintRepeatCol", "$A$1")

 OO_Dispatcher.executeDispatch oDeskTop, ".uno:ChangePrintArea", "", 0, mPrintOptions

Los objetos service manager y el desktop ya estan instanciados previamente. El documento sale perfecto, todo completo, lo único que me está fallando es la impresión.
El código lo generé grabando una macro manualmente desde el Calc.
Ya llevo tres días con esto, en google no encontré nada.

Desde ya muchas gracias.

[mauricio]

Es que Google solo es bueno para venderte y vender tus datos... jejej

Aquí te muestro como establecer el rango de filas a repetir: https://wiki.openoffice.org/wiki/ES/Man ... mprimiendo

Saludos

[gonzispina]

Gracias Mauricio, lo voy a probar. En cuanto tenga el código armado te respondo como resultó. Saludos

[gonzispina]

Mauricio, estoy teniendo el siguiente problema y no se si se debe a que estoy programando en VB6 o a la versión de LibreOffice que estoy usando.

Código: Seleccionar todo

Dim mAI(0) As Object
Set mAI(0) = CreateObject("com.sun.star.Table.CellRangeAddress")

Me está devolviendo:

El componente ActiveX no puede crear el objeto

[gonzispina]

Mauricio muchas gracias, ya quedó solucionado, imprime perfecto. Tardé un poco en darme cuenta que CellRangeAddress era una estructura y no un objeto.
Dejo el código de cómo me quedó armado en VB6 por si a alguien más le sirve.

Código: Seleccionar todo

'- Establecemos las filas y las columnas a repetir
    Dim OO_TitulosR As Object
    Dim OO_ActiveSheet As Object
    Set OO_TitulosR = OO_Document.Bridge_getStruct("com.sun.star.table.CellRangeAddress")
    Set OO_ActiveSheet = OO_Document.getCurrentController.getActiveSheet
    OO_TitulosR.StartColumn = 0
    OO_TitulosR.EndColumn = 0
    OO_TitulosR.StartRow = 1
    OO_TitulosR.EndRow = 1
    OO_ActiveSheet.setTitleColumns OO_TitulosR
    OO_ActiveSheet.setTitleRows OO_TitulosR

Saludos y muchas gracias.

[mauricio]

Muchas gracias por compartir tu solución... es importante marcar el tema como resuelto, ahora lo hago por ti, procura hacerlo tu en futuras consultas... por otra parte... ¿de verdad se sigue programando en VB6?, se resiste a morir...

Saludos

[gonzispina]

En la empresa se resisten a migrar el sistema jaja
Saludos y gracias de nuevo!