Pergunte aqui
1

Macro para imprimir um planilha

perguntadas 2018-11-12 15:13:17 +0100

imagem do gravatar de Ronaldo Elias

updated 2019-03-01 18:09:47 +0100

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

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

2

respondidas 2018-11-12 15:31:54 +0100

imagem do gravatar de Conrado

@Ronaldo Elias

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
editar assinalar como ofensivo Excluir Link mais

Comentários

Grato pelo instrução.

imagem do gravatar de Ronaldo EliasRonaldo Elias ( 2018-11-12 18:58:53 +0100 )editar

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

imagem do gravatar de ConradoConrado ( 2018-11-12 19:15:11 +0100 )editar
0

respondidas 2019-06-14 22:50:39 +0100

imagem do gravatar de Silmar

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

editar assinalar como ofensivo Excluir Link mais

Comentários

@Silmar, favor criar uma pergunta sobre o assunto.

imagem do gravatar de ConradoConrado ( 2019-06-18 14:35:34 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-11-12 15:13:17 +0100

Lidas: 206 vezes

Última atualização: Jun 14