Pergunte aqui
0

Ao inserir macro em botão a planilha fecha

perguntadas 2019-11-06 17:32:35 +0100

imagem do gravatar de Eliane

updated 2019-11-08 20:20:16 +0100

Boa tarde Eu estou tentando inserir uma macro em botão, cnseguri gravar a macro mas ao atrelar ela ao botão em: "Controle/Evento/Botão do mouse pressionado", a planilha fecha. Alguem poderia me ajudar por favor?

Complemento.

Gilberto, boa tarde

Mui to obrigada, vou mudar a versão ou a firgura então.

Poderia me ajudar com um codigo? Por favor

Vi um codigo seu aqui no site e tentei adaptar na minha planilha e está dando erro na linha de codigo abixo:

 numFactura = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("NumFactura").getString()

Eu preciso que somente a planilha que eu estiver seja gerado o PDF. Sera que voce poderia adaptar para mim por favor?

Codigo criado por vc:

Sub GenerarPDF
'----------------------------------------------------------------------
    Dim document   As Object
    Dim dispatcher As Object
    Dim numFactura As String
    Dim CarpetaNombrePDF As String

    document   = ThisComponent.CurrentController.Frame
    dispatcher = CreateUNOService("com.sun.star.frame.DispatchHelper")

    Dim aSaltarA(0) As New com.sun.star.beans.PropertyValue
    aSaltarA(0).Name = "ToPoint"
    aSaltarA(0).Value = "ImprimirFactura"

    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, aSaltarA())
    dispatcher.executeDispatch(document, ".uno:DefinePrintArea", "", 0, Array())

    aSaltarA(0).Value = "CodCliente"
    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, aSaltarA())

    numFactura = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("NumFactura").getString()
    CarpetaNombrePDF = GuardarComo( "Factura " & numFactura )

    If CarpetaNombrePDF > "" Then

        Dim args2(1) As New com.sun.star.beans.PropertyValue
        args2(0).Name = "URL"
        args2(0).Value = CarpetaNombrePDF
        args2(1).Name = "FilterName"
        args2(1).Value = "calc_pdf_Export"

        dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args2())

    EndIf

End Sub
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Ola @Eliane, Use Comentar ou editar sua pergunta para comentários, não use Adicionar resposta para comentários, Grato.

Este comando busca informação na célula nomeada "NumFactura".

De onde pegou esta macro, não me lembro, falta uma outra que completa ela.

Sua impressão é para sair numerada.?

imagem do gravatar de SchiavinattoSchiavinatto ( 2019-11-07 22:26:01 +0100 )editar

Gilberto, Eu consegui rodar um codigo, so que ele so gera PDF na minha maquina, Em outra da erro no endereço. Qual seria o endereço que preciso colocar que salve em qualquer maquina? Agradeço muito sua ajuda '---------------------------------------------------------------------- Segue a parte do endereço:

args2(0).Name = "URL" args2(0).Value = "file:///home.pdf" REM (2) <= Diretório/arquivo. args2(1).Name = "FilterName" args2(1).Value = "calc_pdf_Export"

imagem do gravatar de ElianeEliane ( 2019-11-08 15:58:27 +0100 )editar

O codigo todo nao to conseguindo mandar. não cabe

imagem do gravatar de ElianeEliane ( 2019-11-08 15:59:50 +0100 )editar

Para salvar em todas as maquinas, todas tem que haver o mesmo endereço de salvamento;

imagem do gravatar de SchiavinattoSchiavinatto ( 2019-11-08 16:32:37 +0100 )editar

1 Resposta

1

respondidas 2019-11-06 18:36:06 +0100

@Eliane, deve estar usando a versão 6.3.xxxx, esta com problemas o uso de botões, troque por figura geométrica ou imagem.

Estando com a figura selecionada, clique direito e Atribuir macro.

Descrição da imagem

-----------------------------------------------------------------------------

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-06 17:32:35 +0100

Lidas: 15 vezes

Última atualização: Nov 07