Perfil de albuquerquek - atividade

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