MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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 6 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    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.]
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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 4 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    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.]
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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 3 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    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.]
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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 3 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    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.]
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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 2 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    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.]
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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 2 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    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.]
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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 3 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    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.]
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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 6 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3535
    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.]
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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: Dom 23 Jul 2017, 19:49