afbergman,

Boa noite!

No outro tópico sobre esse mesmo assunto que lhe ajudei e postei exemplo que realiza o que você pediu, você disse que o problema era o fato de que não é garantido que a pessoa que vai imprimir definisse previamente a impressora como PDFCreator. Fiz uma pequena modificação de modo que a impressora é definida antes do comando do PintForm.

Obrigado Wagner pela ajuda no outro tópico!!!! Vou dar uma olhada nesse arquivo e retorno.
Abraços.

Wagner,

Deu um erro de compilação, "uso invalido da palavra-chave ME". Se eu retiro essa expressão b dá um outro erro: "o metódo ActivePrinter do objeto_Application falhou"

afbergman,

Boa tarde!

Essa erro "o metódo ActivePrinter do objeto_Application falhou" é porque a sua impressora PDFCreator não está instalada na mesma porta que está instalada aqui na minha máquina.

Veja que no final da linha onde a impressora é atribuída existe um "Ne00:". Essa é a porta que está na minha máquina.

    'Seta a impressora para PDFCreator
    Application.ActivePrinter = "PDFCreator em Ne00:"

Para saber qual é a porta que está na sua máquina, você pode fazer um pequeno teste. Abra o Excel, digite qualquer coisa e mande imprimir. Ao abrir a caixa de impressão escolha a impressora PDFCreator e feche sem imprimir nada. Depois faça essa pequena rotina no VBA que ela lhe devolverá o nome da impressora atualmente selecionada:

Sub ImpressoraAtiva ()
     Msgbox Application.ActivePrinter
End Sub

Obrigado Wagner, mas ainda nao me atende. Deve haver um jeito de configurar o codigo de outra forma, pois esse formulário deverá estar disponivel para toda a empresa, e provavelmente nem todos terão a impressora na mesma porta que a minha.

afbergman,

Bom dia!

Jeito tem, claro.

Eu acho que hoje em dia até as crianças sabem como configurar uma impressora (aliás tem umas que sabem muito mais do que muito adulto). Desse modo, você pode, por exemplo, inserir no seu código, a caixa de diálogo de abertura de impressoras que o VBA também disponibiliza (Application.Dialogs(xlDialogPrint).Show) e o usuário escolher a impressora PDF da máquina dele antes de continuar o código.

Obviamente, todas as máquinas devem ter o PDFCreator instalado previamente.

Use o gravador de macros para criar o codigo que gera o pdf.

Marcelo,

Creio que nesse caso, ele não consegue usar o gravador de macros para gerar o PDF pois o que ele quer é enviar, por e-mail, um print do Form, sem que esse print seja salvo em lugar nenhum. Tipo assim: apareceu o form na tela, entrou com os dados, clicou no botão Enviar Email, fazer um ALT+PTRSCREEN no form e um CTRL+V no corpo do email.

afbergman veja se assim atende.

boobymcgee,

Boa noite!

Da forma que você fez é fácil de fazer e eu tenho alguns exemplos como o seu. Todavia, se você observar o primeiro tópico do afbergman que eu já vinha tentando ajudar (mencionado nesse tópico) e também o que ele citou no pedido dele na postagem inicial lá em cima

(não há necessidade de salvar em nenhuma pasta)

Vai ver que o que ele está querendo é enviar uma imagem do Userform dele no corpo do e-mail e não como anexo (pelo menos foi isso que eu entendi e o que ele deu a entender no primeiro tópico sobre esse mesmo assunto).

Boa noite wagner,

Desculpa, até li os dois tópicos e também não entendi bem o que ele quer, acabei me apegando a informação da impressora PDF e sai por este outro caminho.
Agora é esperar se ele vai ver o post e responder se é isso ou se realmente quer colar uma imagem no corpo do E-mail.
Valeu.

boobymcgee,

Tudo tranquilo... só quis esclarecer.

Boobymcgee,

Muito obrigado pela excelente resposta, funcionou perfeitamente.

afbergman,

Boa tarde

Por gentileza, não utilize citações desnecessárias.