MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qui 03 Nov 2016, 01:04

    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
    Anexos
    Teste PDF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (210 Kb) Baixado 4 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3235
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 03 Nov 2016, 10:44

    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"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qui 03 Nov 2016, 11:22

    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
    Anexos
    TesteImpressaoPDF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (237 Kb) Baixado 2 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3235
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 03 Nov 2016, 11:29

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qui 03 Nov 2016, 11:40

    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
    Anexos
    TesteImpressaoPDF - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (240 Kb) Baixado 2 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3235
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 03 Nov 2016, 13:04

    Negativo...
    Não consegui abrir.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qui 03 Nov 2016, 13:16

    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
    Anexos
    TesteImpressaoPDF2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (141 Kb) Baixado 1 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3235
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 03 Nov 2016, 13:28

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

    Veja corretamente as aspas duplas.

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qui 03 Nov 2016, 13:37

    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.
    Anexos
    Imagens.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (118 Kb) Baixado 1 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3235
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 03 Nov 2016, 15:11

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qui 03 Nov 2016, 15:39

    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
    Anexos
    Teste PDF1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (149 Kb) Baixado 1 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3235
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 03 Nov 2016, 15:50

    Negativo ....



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qui 03 Nov 2016, 16:11

    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
    Anexos
    Teste PDF1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (127 Kb) Baixado 1 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3235
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 03 Nov 2016, 16:39

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Qui 03 Nov 2016, 17:13

    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
    Anexos
    testePDF.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (453 Kb) Baixado 3 vez(es)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3235
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 03 Nov 2016, 17:57

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Sex 04 Nov 2016, 01:49

    Tem razão.
    Muito obrigado.
    Boa semana.

      Data/hora atual: Ter 06 Dez 2016, 05:47