Ao inserir macro em botão a planilha fecha

[Eliane]

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

[schiavinatto]

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.?

[Eliane]

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”

[Eliane]

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

[schiavinatto]

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

[schiavinatto]

@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.

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.