Macro para imprimir 2 páginas da mesma planilha

[albuquerquek]

Boa tarde galera.

Preciso de uma macro para que a partir de um botão, seja impressa duas vezes determinada planilha.

Atualmente utilizo a seguinte porém somente uma página é impressa.

Sub PrintActivePlan
Dim aPrintOps(0) As New com.sun.star.beans.PropertyValue
oDoc = ThisComponent
aPrintOps(0).Name = "Medida Disciplinar"
aPrintOps(0).Value = 0
oDoc.print(aPrintOps())
End Sub

Sub SelecionaRelatorioParaImpressao
oDoc = ThisComponent
oSheets = oDoc.Sheets
oPlan1 = oSheets.getByName("Medida Disciplinar")
oPlan2 = oSheets.getByName("Medida Disciplinar 2")
Controller = oDoc.getcurrentController
Controller.setActiveSheet(oPlan1)
Call PrintActivePlan
Wait 60
Controller = oDoc.getcurrentController
Controller.setActiveSheet(oPlan2)
End sub

[schiavinatto]

Acredito que na sua é só adicionar mais uma vez:

Call PrintActivePlan

[schiavinatto]

@albuquerquek, tenho esta:

Sub Imprimir 
	Call GoToCellPrintDefaultS "AreaImprimir"
	Call GoToCellPrintDefaultS "AreaImprimir"
End Sub
       
Sub GoToCellPrintDefaultS ( AreaImprimir As String) 'xlocal = Planilha.A1
'================================================|
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint" : args1(0).Value = AreaImprimir
createUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1())
createUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(ThisComponent.CurrentController.Frame, ".uno:PrintDefault", "", 0, Array())
End Sub

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.