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

    Relatório access para PDF...

    Compartilhe
    avatar
    caguzenski
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 29/10/2012

    Relatório access para PDF...

    Mensagem  caguzenski em 7/3/2016, 15:32

    Estou tentando converter relatório access para PDF:

    Private Sub btSalvarPDF_Click()

    Dim strArquivo As String
    Dim strlocal As String

    strArquivo = "Atestado" & ".pdf"
    strlocal = CurrentProject.Path & "C:\EnviadosPDF\" & strArquivo
    DoCmd.OutputTo acOutputReport, "Rel_RiscodeVidaMemo", acFormatPDF, strlocal

    End Sub

    esta dando ERRO no acFormatPDF, porque ??!!!...

    aguardo - grato... bounce
    FabioPaes
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Re: Relatório access para PDF...

    Mensagem  FabioPaes em 7/3/2016, 15:40

    strlocal = CurrentProject.Path & "C:\EnviadosPDF\" & strArquivo    
    mude para:


    strLocal = CurrentProject.Path & "\" &  strArquivo
    'Salvara no diretório do Programa.



    ***Se você quer mandar para um diretorio especifico e sempre no mesmo lugar faça assim:

    strLocal = "D:\Backup\" & strArquivo   ' Salva no D:\ pasta Backup \ Nomedoarquivo.pdf


    ***Se você quer quer o usuario defina o nome do arquivo e onde salvar faça assim:

    DoCmd.OutputTo acOutputReport, "r1", acFormatPDF, , True

    onde: r1 É o nome do Relatoria a ser exportado.


    Última edição por fabiopaes em 7/3/2016, 15:46, editado 1 vez(es)
    avatar
    caguzenski
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 29/10/2012

    Re: Relatório access para PDF...

    Mensagem  caguzenski em 7/3/2016, 15:45

    Fabio, deu mesmo erro...
    FabioPaes
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Re: Relatório access para PDF...

    Mensagem  FabioPaes em 7/3/2016, 15:47

    Posta seu BD...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10424
    Registrado : 04/11/2009

    Re: Relatório access para PDF...

    Mensagem  JPaulo em 7/3/2016, 15:54

    É conveniente saber qual a versão do seu Ms Access.

    Se for 2007 ou superior, não use o "acformatpdf", este comando falha inumeras vezes devido a desincronia no Office,
    use antes este comando "PDF Format (*.pdf)"

    Pode testar que irá salvar junto do banco;

    Código:
    Dim strArquivo As String
    Dim strlocal As String

    strArquivo = "Atestado" & ".pdf"
    strlocal = CurrentProject.Path & "\" & strArquivo
        DoCmd.OutputTo acOutputReport, "Report1", "PDF Format (*.pdf)", strlocal


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    caguzenski
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 29/10/2012

    Re: Relatório access para PDF...

    Mensagem  caguzenski em 7/3/2016, 16:28

    Fabio meu access 2003, tem como colocar o saída para pdf
    avatar
    caguzenski
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 29/10/2012

    Re: Relatório access para PDF...

    Mensagem  caguzenski em 7/3/2016, 16:34

    Fabio, incluído BD
    Anexos
    bd1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 34 vez(es)


    Última edição por caguzenski em 7/3/2016, 16:46, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Re: Relatório access para PDF...

    Mensagem  FabioPaes em 7/3/2016, 16:36

    Nao deu certo com a Dica do JPaulo???

    Eu nao tenho Office 2003, entao provavelmente nao apresentará esse erro aqui... Mas posta caso alguém tenha para fazer o teste...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10424
    Registrado : 04/11/2009

    Re: Relatório access para PDF...

    Mensagem  JPaulo em 7/3/2016, 16:38

    O Ms Access 2003 não tem essa opção.

    Somente com a ajuda do Lebans;

    lebans.com/reporttopdf.htm



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 14/08/2011

    Re: Relatório access para PDF...

    Mensagem  leoni_dias em 27/6/2018, 20:03

    Boa tarde a todos.

    Espelhando no gênio Vinícius de Morais "os outros que me perdoem, mas JPaulo é fundamental".

    Essa dica "DoCmd.OutputTo acOutputReport, "Report1", "PDF Format (*.pdf)", strlocal" foi espetacular.

    Obrigado, amigo.

      Data/hora atual: 22/2/2019, 17:03