Botón con macro para imprimir otra hoja diferente.

[desafio9090]

Saludos.

Resulta que quiero poner un botón que al pulsar sobre él, imprima una determinada página del libro, no la página actual donde está ubicado el botón, sino otra diferente.
He creado una macro con el grabador de macros, pero me imprime siempre la página actual y no otra que yo especifique.
Alguien que controle de macros me podría decir que macro debería de acoplar al botón.
Gracias de antemano.

[mauricio]

Establece correctamente tu área de impresión, todo esta documentado:

https://wiki.openoffice.org/wiki/ES/Man ... mprimiendo

[desafio9090]

Saludos..
He mirado la documentación sobre "Imprimir", pero no doy con la macro correcta, para el botón que quiero colocar.
Haber si alguien que controle un poco me podría decir como seria dicha macro.
Gracias de antemano.

[mauricio]

¿como lo has intentado?

[fornelasa]

Por ejemplo, si queremos imprimir el rango C2:E9 de la Hoja2, asigna esta macro a tu botón.

Código: Seleccionar todo

Sub Imprimir()
       Dim mOpc()
          oDoc = ThisComponent
          inic = oDoc.getCurrentSelection()          
      document = oDoc.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   dim args2(0) as new com.sun.star.beans.PropertyValue
       args2(0).Name = "Nr"
       args2(0).Value = 2
     dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args2())          
        oHojas = oDoc.getSheets()
       oRangos = oDoc.createInstance("com.sun.star.sheet.SheetCellRanges")
        oRangos.addRangeAddress(oHojas.getByIndex(1).getCellRangeByName("C2:E9").getRangeAddress() ,False)
           oDoc.print(mOpc())
           oDoc.CurrentController.Select(inic)
 End Sub

Asumo que tienes bien configurada la impresora dentro del menú Archivo <> Configuración de la impresora.....