[Resolvido]Exportar dados (Formato de Relatório) para um Forms da Internet

Olá Pessoal.

Utilizo um código que acessa um formulário na internet.
Já consigo exportar dados de um textBox para este formulário, mas o que preciso é exportar dados num formato adequado, ou seja, como num relatório.

Atualmente, sigo a seguinte rotina:
> publico o relatório no "Microsoft Office Word";
> seleciono e copio o texto no Word;
> colo no formulário da internet.

Anexo aqui um pequeno BD de exemplo.

Peço ajuda aos companheiros do forum.

Obrigado

Veja este tópico, que a parte que você deseja já está a funfar, copia para o Word, seleciona tudo e copia novamente;

http://maximoaccess.forumeiros.com/t7544-criar-arquivo-docx-e-copiar-texto-de-outro-arquivo-do-word-para-o-arquivo-criado

Grato JPaulo

Vou estudar o material que indicou-me.

Em breve dou retorno

Obrigado

Luiz Gustavo

Olá JPaulo.
Estudei os tópicos que suregiu. Fiz batante testes. Criei vários DB de exempos. Aprendi um pouco. Mas não consigo adaptar as minhas necessidades. Se mais uma vez puder contar com sua ajuda, fico muito grato.

Abaixo estou descrendo a rotina. Mesclando código com que faço manualmente (em vermelho). É assim:


Private Sub Comando2_Click()
Dim ie As Object
DoCmd.OpenReport "MeuRelatório", acPreview
Mouse Botão Direito /Seleciono: Exportar...
Caixa de diálogo "Salvar como tipo:" Seleciono: Rich Text Format (*.rtf)
Abro o documento "MeuRelatório.rtf" / Seleciono tudo / Copio
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate "http://teste.com.br/"
While ie.Busy
DoEvents
Wend
Dentro do ie.Document.All("ctl00_body_tbDiscriminacao") / Mouse Botão Direito / colar
Set ie = Nothing
End Sub

Obrigado pela atenção

up!

Boa noite amigos.
Alguma sugestão?
Obrigado.

Bom dia Luiz e demais;

Faça algo +/- assim;

http://dl.dropbox.com/u/771097/PasteClipBoard.rar

Oi JPaulo.
Grato pela atenção.
É bem isto que preciso.

Em referências alterei para: "Microsoft Word 11.0 Object Library"

Mas está dando erro de compilação:
"Número de argumentos incorreto ou atribuição de propriedade inválido"
E o foco vai para "DoCmd.OutputTo"

Abraços

Procurei na "Ajuda do Microsoft Visual Basic" por "Método OutputTo" e acho que tinha um erro:

Original:
DoCmd.OutputTo acOutputReportacOutputReport, "Report_teste", "RichTextFormat(*.rtf)", "C:\Report_teste.rtf", False, "", 0, acExportQualityPrint

Alterado:
DoCmd.OutputTo acOutputReport, "Report_teste", "RichTextFormat(*.rtf)", "C:\Report_teste.rtf", False, "", 0, acExportQualityPrint

Mas continua dando erro de compilação: ""Número de argumentos incorreto ou atribuição de propriedade inválido"

Obs.: Quanto ao restante do código, funciona perfeitamente.

Obrigado

Mais uma vez com a "Ajuda do Microsoft Visual Basic" no "Método OutputTo", observei que no código abaixo tem um argumento a mais.

DoCmd.OutputTo acOutputReport, "Report_teste", "RichTextFormat(*.rtf)", "C:\Report_teste.rtf", False, "", 0, acExportQualityPrint

Um destes três argumentos está a mais.
Mas não sei qual devo excluir!

Obrigado

Luiz Gustavo

Bom dia Luiz;

Tentando vai aos poucos...

Como tem a versão 11.0, deixe apenas assim e teste:

DoCmd.OutputTo acOutputReport, "Report_teste", "RichTextFormat(*.rtf)", "C:\Report_teste.rtf", False

Valeu
JPaulo

Mais uma resolvida

Muito obrigado

Um forte abraço.

Luiz Gustavo

Obrigado pelo retorno, o forum agradece.