Olá, preciso de uma macro para imprimir todo conteúdo de uma determinada planilha. Ex.: Planilha1
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
Grato pelo instrução.
@RonaldoElias, caso a resposta lhe atendeu, clique como resposta correta para facilitar a pesquisa de futuras dúvidas. Agradeço.
Boa noite!
Como ficaria para imprimir um intervalo de páginas?