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]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 !
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    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!


    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: Qua 13 Dez 2017, 16:32