[Resolvido]Controle WebBrowser e PDF!!

Prezados bom dia!

Estou a matutar a algum tempo sem obter o sucesso esperado. Tenho um controle WebBrowser que faz a leitura de um boleto de cobrança de um determinado banco, preciso pegar o html desse controle e gerar um arquivo PDF para anexação e envio a um e-mail... A parte do boleto e pegar o código html esta 100%, preciso gerar o pdf do conteúdo... Tudo de forma sistemica, ou seja automatizada...

Agradeço toda ajuda...

Fala Pablo,

Boa noite, nao sei se ja arrumou solução, mas tenho um sistema de preechimento de contrato de venda que ao termino envia tanto xml qto pdf para o contratante, é simples mais funcional!

Como vc esta obtendo os dados html ? voce visualiza os mesmos em relatorio ou formulario ?

Abraço

Olá amigo bom dia!

Eu obtenho o html a partir de um webbrowser control no formulário daí gravo os dados em um arquivo... O controle não funciona no relatório, senão seria uma maravilha...

Sds,


Pablo

Como você gera esse XML, é uma coisa interessante...

Oi Pablo,

Será que nao existe um metodo para que em vez de gerar o arquivo vc gere relatorio ou ate mesmo um form ? sei la derepente colocar os dados em variveis e depois atribuilas aos campos !! desculpe a minha sugestão mas tentaria por essas "beiradas" ai !!

Gero o xml através do metodo "Application.ExportXML", no meu caso como a minuta de venda é preenchida em dois locais diferentes, a empresa filial começa a fazer a proposta de venda qdo esta termina sua parte, gera e envia o xml por e-mail, a matriz importa o arquivo e continua de onde a filial parou ! é bem simples mas funciona legal!! abaixo fragmento do meu codigo ja indicando o proprio form !!

If MsgBox("Exportar Arquivo XML ?", vbYesNo, "ATENÇÃO") = vbYes Then
MsgBox "O Arquivo será salvo na pasta c:\Minuta Express\minutas xml, com o respectivo nome do contratante.", vbOKOnly, "ATENÇÃO"
Application.ExportXML acExportForm, "GerarMinuta", "c:\minuta express\minutas xml\" & Me.Nome_Contratante & ".xml"
MsgBox "Arquivo exportado com Sucesso !", vbOKOnly, "ATENÇÃO"
Else
MsgBox "Exportação Cancelada !", vbCritical, "ATENÇÃO"
Exit Sub
End If
End If

Boa sorte por ai !!
Abç