Pergunte aqui
0

Macro para imprimir 2 páginas da mesma planilha

perguntadas 2019-11-13 21:05:56 +0100

imagem do gravatar de albuquerquek

updated 2019-11-14 13:52:34 +0100

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
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

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

Call PrintActivePlan
imagem do gravatar de SchiavinattoSchiavinatto ( 2019-11-13 22:59:43 +0100 )editar

1 Resposta

0

respondidas 2019-11-13 22:53:44 +0100

@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 Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-11-13 21:05:56 +0100

Lidas: 20 vezes

Última atualização: Nov 13