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]gerar relatórios em pdf

    Compartilhe
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 420
    Registrado : 12/04/2016

    [Resolvido]gerar relatórios em pdf

    Mensagem  marcelo marques em Qua 31 Maio 2017, 02:58

    boa noite pessoal estou usando este código para salvar relatório em pdf ,em uma pasta específica

    código:
    Código:
    dim strarquivo as string
    dim strlocal as string

    strarquivo =>"Estoque "&".pdf"
    strlocal =currentproject.path &"\enviados\"& strarquivo
    docmd.outputto acoutputreport,"rl_estoque" ,acformatpdf,strlocal


    ele não esta salvando onde eu pretendo meu bd esta na seguinte pasta


    D:\
    no caminho seguinte é onde eu salvo meus backup

    D:\backup systema de empresa

    e dentro desta pasta acima eu criei outra pasta chamada enviado


    D:\backup systema de empresa\enviado

    gostaria de gerar o pdf enviando para esta pasta enviado

    muito obrigado pessoal
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]gerar relatórios em pdf

    Mensagem  ahteixeira em Qua 31 Maio 2017, 09:39

    Olá Marcelo,

    Teste assim:
    Código:
    Dim strarquivo As String
    Dim strlocal As String

    strarquivo = "Estoque" & ".pdf"
    'strlocal = CurrentProject.Path & "\enviados\" & strarquivo
    strlocal = "D:\backup systema de empresa\enviado\" & strarquivo
    DoCmd.OutputTo acOutputReport, "rl_estoque", acFormatPDF, strlocal

    Repare que ao atribuir o nome do ficheiro à variavel strarquivo você tinha =>
    Verifique se a sub-pasta é enviado ou enviados.

    Abraço
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]gerar relatórios em pdf

    Mensagem  JPaulo em Qua 31 Maio 2017, 09:43

    Ola;

    Código:
    Private Sub SeuBotão_Click()
    Dim strarquivo As String
    Dim strlocal As String

    strarquivo = "Estoque" & ".pdf"
    strlocal = CurrentProject.Path & "\enviado\" & strarquivo
        DoCmd.OutputTo acOutputReport, "rl_estoque", acFormatPDF, strlocal, False
    End Sub


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]gerar relatórios em pdf

    Mensagem  JPaulo em Qua 31 Maio 2017, 09:44

    Teixeira: Same time... Very Happy


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]gerar relatórios em pdf

    Mensagem  ahteixeira em Qua 31 Maio 2017, 09:49

    Olá JPaulo, pela mesma causa. Very Happy
    Aguardamos retorno do colega Marcelo.
    Abraço
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 420
    Registrado : 12/04/2016

    Re: [Resolvido]gerar relatórios em pdf

    Mensagem  marcelo marques em Qua 31 Maio 2017, 11:14

    obrigado a vocês assim que chegar em casa testo e retorno

    abraço
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 420
    Registrado : 12/04/2016

    Re: [Resolvido]gerar relatórios em pdf

    Mensagem  marcelo marques em Qui 01 Jun 2017, 02:19

    boa noite obrigado Jpaulo e ahteixeira os dois código deram certo mais eu usei o do
    ahteixeira ,porque meu bd estava em uma pasta e poder gerar em outro diretório diferente e em pasta diferente


    obrigado a todos vocês Deus abençoe vocês

    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: [Resolvido]gerar relatórios em pdf

    Mensagem  ahteixeira em Qui 01 Jun 2017, 10:34

    Olá Marcelo,
    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço a todos

      Data/hora atual: Ter 21 Nov 2017, 20:58