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]Problema ao exportar via PDF

    Compartilhe

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    [Resolvido]Problema ao exportar via PDF

    Mensagem  bernardweger em Seg 29 Jun 2015, 15:57

    Olá amigos bom dia...

    eu utilizo o seguinte código em meu formulário, que ele salva e depois exporta para o outlook, no formato de pdf

    Private Sub CmdEnviar_Click()

    Dim strArquivo As String
    Dim strLocal As String
    Dim objOut As Object
    Dim objmail As Object
    Dim objAnexo As Object
    Const olMailItem = 0
    Const olByValue = 1
    '---------------------------------------------
    'Carregando a coleção do Outlook
    'Similar ao abrir o Outlook
    '---------------------------------------------
    Set objOut = CreateObject("Outlook.application")

    '------------------------------------------------------------
    'Abrindo o formulário de email para inserir os itens de email
    'Similar ao clicar no botão NOVO do Outlook
    '------------------------------------------------------------
    Set objmail = objOut.CreateItem(olMailItem)

    '------------------------------------------------------------
    'Abrindo a opção anexo
    'Similar ao clicar no botão ANEXO do Outlook
    '------------------------------------------------------------
    Set objAnexo = objmail.Attachments

    '------------------------------------------------------------------------------
    'Indico o nome do arquivo pdf e o local que será gravado.
    'Neste exemplo gero os nomes dos arquivos, aproveitando o número da proposta,
    'ficando com o seguinte aspecto: proposta1.pdf, proposta2.pdf,...
    '------------------------------------------------------------------------------
    strArquivo = "Requisição Número " & Me!Código & ".pdf"
    strLocal = CurrentProject.Path & "/requisição/" & strArquivo

    '----------------------------------------------------------------------------
    'Abre o relatório filtrado e oculto, de acordo com a proposta selecionada.
    '----------------------------------------------------------------------------
    DoCmd.OpenReport "rlt_requisicao", acViewPreview, , "Código=" & Me!Código, acHidden

    '----------------------------------------------------------------------------
    'Gera o pdf do relatório através do comando OutputTo.
    'O mecanismo do Access reconhece que o relatório solicitado pelo OutputTo
    'já está aberto e então o OutputTo usará o relatório já aberto e filtrado.
    '----------------------------------------------------------------------------
    DoCmd.OutputTo acOutputReport, "rlt_requisicao", acFormatPDF, strLocal

    '---------------------------------------------
    'Fecha o relatório que está oculto
    '---------------------------------------------
    DoCmd.Close acReport, "rlt_requisicao"

    '-------------------------------------------------------------
    'Adiciona o arquivo pdf no anexo, capturado da pasta enviados
    '-------------------------------------------------------------
    objAnexo.Add strLocal, olByValue, 1

    '--------------------------------------------------------
    'Mostra o formulário de envio de email
    '--------------------------------------------------------
    objmail.Display

    '-------------------------------------------------------
    'Tudo já foi entregue ao Outlook; então podemos esvaziar
    'a memória do computador usada pelas variáveis objeto.
    '-------------------------------------------------------
    Set objAnexo = Nothing
    Set objmail = Nothing
    Set objOut = Nothing
    End Sub

    bom, o meu problema seria que quando eu o utilizo ele diz que o formato não é suportado, não sei o que fazer, alguem poderia me ajudar, usso o office 2007..

    Obrigado !

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Problema ao exportar via PDF

    Mensagem  Avelino Sampaio em Seg 29 Jun 2015, 19:11

    Olá!

    Atualize o seu Office 2007 com o pacote sp3 que vc pode baixar direto do site da Microsoft. Sem esta atualização o PDF não funciona.

    Sucesso!



    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    Re: [Resolvido]Problema ao exportar via PDF

    Mensagem  bernardweger em Seg 29 Jun 2015, 19:31

    Instalando o service pack 3 ele já funciona?

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    Re: [Resolvido]Problema ao exportar via PDF

    Mensagem  bernardweger em Sex 17 Jul 2015, 14:07

    Problema resolvido, desde já agradeço a todos

      Data/hora atual: Seg 05 Dez 2016, 16:30