Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

@Ronaldo Elias

Segue para impressão da planilha ativa:

Sub PrintActivePlan

Dim aPrintOps(0) As New com.sun.star.beans.PropertyValue
oDoc = ThisComponent
aPrintOps(0).Name = "Planilha1"
aPrintOps(0).Value = 0
oDoc.print(aPrintOps())

End Sub

Impressão da planilha específica com uso da operação jump

Sub SelecionaRelatorioParaImpressao

    oDoc = ThisComponent
    oSheets = oDoc.Sheets
    oPlan1 = oSheets.getByName("Planilha1")
    oPlan2 = oSheets.getByName("Planilha2")
    Controller = oDoc.getcurrentController
    Controller.setActiveSheet(oPlan1)

    Call PrintActivePlan

    Wait 60

    Controller = oDoc.getcurrentController
    Controller.setActiveSheet(oPlan2)

End sub