MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    PDF ou XPS

    avatar
    vagnersoft
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 19/02/2011

    PDF ou XPS Empty PDF ou XPS

    Mensagem  vagnersoft 11/2/2016, 17:36

    Na Ribbon Visualização de Impressão, no ícone PDF ou XPS Exportar o objeto selecionado para um arquivo de documento PDF ou XPS, ao publicar o documento o Access 2016 é encerrado e não ocorre a gravação do objeto.

    pergunta:

    Existe um Fix para correção deste bug?



    Atenciosamente,

    Vagner Izaias Ferreira
    Vagner'Soft Informática

    affraid
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    PDF ou XPS Empty Re: PDF ou XPS

    Mensagem  FabioPaes 11/2/2016, 18:37

    Amigo, crie um Botao e coloque esse Codigo no Evento ao Clicar...:

    Código:

    Dim nomeArquivo, strLocal As String
    'Nome do arquivo: Relatorio_15_T-DIA.MES.YYYY.hhhmmm.pdf
    nomeArquivo = "Relatorio_" & Me.Codigo & "_T-" & Format(Now, "dd.mm.yyyy.hhmm") & ".pdf"

    'salva no Local do Aplicativo, para mandar para um local especifico descomentar a linha a baixo
    'strLocal = "D:\Backup\" & nomeArquivo ' para salvar em d:\Backup\NomedoArquivo.pdf
    strLocal = CurrentProject.Path & "\" & nomeArquivo

    'Filtra o relatorio pelo codigo Visualizado para em seguida exportar para PDF
    DoCmd.OpenReport "RLT_CAMPOS", acViewPreview, , "[CÓDIGO] = [Forms]![FML_CAMPOS]![CÓDIGO]", acHidden

    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "RLT_CAMPOS", acFormatPDF, strLocal, False

    'Fecha o relatório
    DoCmd.Close acReport, "RLT_CAMPOS"

    RLT_CAMPOS é o Nome do Reltorio

    Ele exporta pra PDF na Pasta do Programa.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    PDF ou XPS Empty Re: PDF ou XPS

    Mensagem  FabioPaes 11/2/2016, 18:42

    ou com esse Código para Perguntar para o Usuario onde quer salvar o Arquivo...

    Código:
    DoCmd.OutputTo acOutputReport, "r1", acFormatPDF, , True
    r1 é o nome do Relatório.
    avatar
    vagnersoft
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 19/02/2011

    PDF ou XPS Empty PDF ou XPS

    Mensagem  vagnersoft 12/2/2016, 17:11

    Obrigado Fábio pela descrição do código. Mas estou mesmo a procura do Fix para correção do Bug.

    Smile

      Data/hora atual: 8/3/2021, 08:53