QuickReport: Jogando relatório no Word...
:?: Existe uma maneira para jogar o conteúdo de um relatório exibido na tela através de um Preview do QReport no Word? Tem como selecionar e colar no Word? Como fazer isto?
______
______
Fabriciobaia
Curtidas 0
Respostas
Fabio.hc
15/05/2004
Tente assim:
uses QRExport procedure TForm1.Button1Click(Sender: TObject); begin QuickRep1.ExportToFilter(TQRAsciiExportFilter.Create(´c:\teste.doc´)); end;
GOSTEI 0
Fabriciobaia
15/05/2004
Fiz o teste e deu certo. VALEU...
GOSTEI 0
Fabriciobaia
15/05/2004
Usem o seguinte código:
FormRELTST01.QRepRELTST01.ExportToFilter(TQRAsciiExportFilter.Create(´REPORT.TXT´));
{ para texto ou }
QRCSVFilter1.Separator:=´;´;
FormRELTST01.QRepRELTST01.ExportToFilter(TQRCommaSeparatedFilter.Create(´REPORT.CSV´));
{ para arquivo CSV - EXCEL - Não esqueça de colocar um componente QRCSVFilter1 para definir o separador = ´;´ ou }
FormRELTST01.QRepRELTST01.ExportToFilter(TQRHTMLDocumentFilter.Create(´REPORT.HTM´));
{ finalmente libere a memória com: }
FormRELTST01.QRepRELTST01.ExportFilter.Free;
{ Fiz alguns textes em todos os padrões e na maioria das vezes os arquivos não ficam bonitinhos como na visualização do relatório através do preview do QReport mas dá pro gasto... Qualque dúvida ou sugestão entrem em contato}
___
FormRELTST01.QRepRELTST01.ExportToFilter(TQRAsciiExportFilter.Create(´REPORT.TXT´));
{ para texto ou }
QRCSVFilter1.Separator:=´;´;
FormRELTST01.QRepRELTST01.ExportToFilter(TQRCommaSeparatedFilter.Create(´REPORT.CSV´));
{ para arquivo CSV - EXCEL - Não esqueça de colocar um componente QRCSVFilter1 para definir o separador = ´;´ ou }
FormRELTST01.QRepRELTST01.ExportToFilter(TQRHTMLDocumentFilter.Create(´REPORT.HTM´));
{ finalmente libere a memória com: }
FormRELTST01.QRepRELTST01.ExportFilter.Free;
{ Fiz alguns textes em todos os padrões e na maioria das vezes os arquivos não ficam bonitinhos como na visualização do relatório através do preview do QReport mas dá pro gasto... Qualque dúvida ou sugestão entrem em contato}
___
GOSTEI 0