Pergunte aqui

Perfil de albuquerquek - atividade

2020-08-07 02:28:12 +0100 Medalha recebida  Pergunta notável (fonte)
2020-04-22 12:32:06 +0100 Medalha recebida  Pergunta famosa (fonte)
2020-02-10 14:28:13 +0100 Medalha recebida  Pergunta notável (fonte)
2020-02-10 14:28:13 +0100 Medalha recebida  Pergunta popular (fonte)
2019-12-15 11:32:24 +0100 Medalha recebida  Pergunta popular (fonte)
2019-12-05 20:38:53 +0100 Medalha recebida  Entusiasta
2019-11-25 14:33:23 +0100 Medalha recebida  Pergunta popular (fonte)
2019-11-14 13:49:19 +0100 Marcada como a melhor resposta Macro para imprimir 2 páginas da mesma planilha

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
2019-11-14 13:49:19 +0100 Medalha recebida  Acadêmico (fonte)