Macro para imprimir um planilha

[RonaldoElias]

Olá, preciso de uma macro para imprimir todo conteúdo de uma determinada planilha. Ex.: Planilha1

[Conras]

@RonaldoElias

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

[RonaldoElias]

Grato pelo instrução.

[Conras]

@RonaldoElias, caso a resposta lhe atendeu, clique como resposta correta para facilitar a pesquisa de futuras dúvidas. Agradeço.

[Silmar]

Boa noite!
Como ficaria para imprimir um intervalo de páginas?

[Conras]

@Silmar, favor criar uma pergunta sobre o assunto.