[Resolvido]Código para salvar como PDF não funciona

Boa noite
Na aplicação do Form Frm1 os bot~es imprimir e sair estão ok.
O PDF quando acionado dá erro..na seguinte linha...
DoCmd.OpenReport "RelINSSGeralData", acViewPreview, , "IdPessoas=" & Me.IdPessoas, acHidden

no... IdPessoas

o código utilizado foi:

'Salvar como pdf perguntando local
Private Sub ComandoPDF_Click()
   'Abre o relatório devidamente filtrado e oculto
   DoCmd.OpenReport "RelINSSGeralData", acViewPreview, , "IdPessoas=" & Me.IdPessoas, acHidden
   
   'Gera arquivo pdf do relatório previamente aberto e filtrado e PERGUNTA ONDE SALVAR.
   DoCmd.OutputTo acOutputReport, "RelINSSGeralData", acFormatPDF, , True
   
   'Fecha o relatório
   DoCmd.Close acReport, "RelINSSGeralData"
End Sub

Como posso sanar essa dificuldade?
Obrigado

Boas....tente dessa forma, criando uma pasta ( aqui no caso " teste"), onde está e fica o sistema.
Essa pasta, teste, vai receber os arquivos gerados em *.PDF

Dim strarquivo As String
Dim strlocal As String

strarquivo = "testedeimpressão Nº " & Me.IdPessoas& " " & Me.Nome & ".pdf"

strlocal = CurrentProject.PATH & "\Teste\" & strarquivo ' criar essa pasta onde está o banco de dados

DoCmd.OpenReport "RelINSSGeralData", acViewPreview, , "IdPessoas= " & Me!IdPessoas, acHidden

DoCmd.OutputTo acOutputReport, "RelINSSGeralData", acFormatPDF, strlocal


DoCmd.Close acReport, "RelINSSGeralData"

Bom dia Silvio
Esta dando erro de sintase na linha....
strarquivo = "testedeimpressão Nº " & Me.IdPessoas& " " & Me.Nome & ".pdf"

Veja o anexo se puder.
Obrigado

Boas...

Eu uso o AC2007 aqui, versões superiores a essa, fica complicado em abrir e analisar.

Mas, esse campo Me.Nome, você tem que substituir ele pelo campo que mostra o nome do cliente.

Silvio.
Se entendi...
rs
troquei no nome do campo.
alega que falta fim de instrução nas aspas.


Salvei na versão 2007/2010.
Anexo.
se puder..
Obrigado

Negativo...
Não consegui abrir.

Oi Silvio
Fiz uma cambiarra.
Peguei um exemplo de menutreew do nosso amigo Leandro, que sei que é 2007 e enxertei nele a tabela, form, consulta e relatório.
Acho que agora vai.
Rsrs
Obrigado

strarquivo = "testedeimpressão Nº " & Me.IdPessoas & " -" & Me.Nome & ".pdf"

Veja corretamente as aspas duplas.

Você tem que salvar o projeto na versão AC2007.

Silvio...
em anexo 2 print de tela.
1 com a imagem do que tenho para salvar na versão que possuo..2013.
Procurei em como salvar em 2007 e não vi...
2 Deu erro no Id pessoa.

Obrigado.

Boa tarde...

Salve ele na versão 2000

Quanto ao campo me.nome, tem que substituir pelo campo ( txtalgumacoisa ) onde vai o nome do teu cliente.

O access 2013 não esta salvando em outras versões.
Retirei tudo, menos a tabela, form consulta e relatório.
Talvez vc assim consiga.
Caso não tentarei de outra máquina quando chegar em casa a noite.
Obrigado

Negativo ....

O que estava impedindo era uma classificação geral no banco de dados.
Troquei para geral herdado e foi.
graças....
rsrsrsr
anexo no formato 2000

Por fim, acabei instalando a versão 2013 aqui.

Veja como ficou o código agora, lembrando que tem que criar uma pasta, para receber o arquivo gerado no *.PDF

Código:

'Salvar como pdf perguntando local
Private Sub ComandoPDF_Click()
Dim strarquivo As String
Dim strlocal As String
strarquivo = "testedeimpressão "

strlocal = CurrentProject.Path & "\Teste\" & strarquivo ' criar essa pasta " teste " onde está o banco de dados

DoCmd.OpenReport "RelINSSGeralData", acViewPreview, , , acHidden

DoCmd.OutputTo acOutputReport, "RelINSSGeralData", acFormatPDF, strlocal


DoCmd.Close acReport, "RelINSSGeralData"
End Sub

Me desculpe por ter lhe ocasionado a instalação da versão 2013.

Bom aqui dá dando erro de 2501...

DoCmd.OutputTo acOutputReport, "RelINSSGeralData", acFormatPDF, strlocal


Informa que a ação output to foi cancelada.


em anexo.. versão 2013.

Obrigado

Preste atenção......


'Salvar como pdf perguntando local
Private Sub ComandoPDF_Click()
Dim strarquivo As String
Dim strlocal As String
strarquivo = "TesteImpressao" -----nome do arquivo a ser gerado em PDF

strlocal = CurrentProject.Path & "\Teste\" & strarquivo ' criar essa pasta " teste " onde está o banco de dados

DoCmd.OpenReport "RelINSSGeralData", acViewPreview, , , acHidden

DoCmd.OutputTo acOutputReport, "RelINSSGeralData", acFormatPDF, strlocal


DoCmd.Close acReport, "RelINSSGeralData"
End Sub


Veja bem o que está em vermelho...

A pasta onde ficarão os arquivos gerados em PDF se chama....teste e você colocou ...testeimpressão.

Testeimpressão, é o nome do arquivo gerado, posteriormente deverá ser mudado por você.

Tem razão.
Muito obrigado.
Boa semana.