Exportar Relatorio para Word
Amigos como faco para exportar um relat[orio do QuickReport para o Word ou Html
Mantmor
Mantmor
Mantmor
Curtidas 0
Respostas
Nigro
08/01/2004
Ai vão 3 dicas
procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileNew;//inicia um novo documento
MSWord.insert(´Contrato de Locação´); //Escreve algo
MSWord.insert(#13+´Contrato de Locação´);//Pula uma linha e escreve
MSWord.FontSize(24);//muda o tamanho da fonte
MSWord.italic;//coloca italico
MSWord.bold;//coloca negrito
MSWord.underline;//sublina
MSWord.insert(13+´Contrato de Locação´);//pula a linha e escreve novamente
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.Font(´Arial´);//muda a fonte usada
MSWord.underline(false);//retira o sublinhado
MSWord.italic(false);//retira o italico
MSWord.bold(false);//retira o bold
MSWord.insert(13 +´teste´);
MSWord.insert(13+9 +´teste´);//nova linha e um TAB
MSWord.insert(13+Table1Razao_Social.Value);//insere algo de uma tabela
MSWord.LineUp(2, 1); //seleciona uma parte do texto
MSWord.TextToTable(ConvertFrom := 2, NumColumns := 1);// monta uma tabela com o texto selecionado
Word.FileSaveAs(´c:\temp\test.doc´, 3); //Salva o arquivo
end;
-----------------------------
AssignFile(Arq, ´nomearq.html´);
Rewrite(Arq);
Writeln(Arq, ´<html>´);
Writeln(Arq, ´<head>´);
Writeln(Arq, ´<title>SAAE S&o Leopoldo - RS</title>´);
Writeln(Arq, ´</head>´);
Writeln(Arq, ´´);
Writeln(Arq, ´<div align=´center´>´);
Writeln(Arq, ´<table border=0 width=´100¬´>´);
Writeln(Arq, ´<tr><td colspan=´4´ align=´center´ bgcolor=´0080FF´>´);
Writeln(Arq, ´´);
Writeln(Arq, ´Lancamento de Conv&nio
</td></tr>´);
Writeln(Arq, ´<tr><td colspan=´4´ align=´center´>´);
Writeln(Arq, ´</td></tr></table></div></html>´);
CloseFile(Arq);
---------------------------
Em vez de Quickreport1.Print faca :
QuickRep1.ExportToFilter(TQRHtmlExportFilter.Create(´teste.html´));
procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileNew;//inicia um novo documento
MSWord.insert(´Contrato de Locação´); //Escreve algo
MSWord.insert(#13+´Contrato de Locação´);//Pula uma linha e escreve
MSWord.FontSize(24);//muda o tamanho da fonte
MSWord.italic;//coloca italico
MSWord.bold;//coloca negrito
MSWord.underline;//sublina
MSWord.insert(13+´Contrato de Locação´);//pula a linha e escreve novamente
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.Font(´Arial´);//muda a fonte usada
MSWord.underline(false);//retira o sublinhado
MSWord.italic(false);//retira o italico
MSWord.bold(false);//retira o bold
MSWord.insert(13 +´teste´);
MSWord.insert(13+9 +´teste´);//nova linha e um TAB
MSWord.insert(13+Table1Razao_Social.Value);//insere algo de uma tabela
MSWord.LineUp(2, 1); //seleciona uma parte do texto
MSWord.TextToTable(ConvertFrom := 2, NumColumns := 1);// monta uma tabela com o texto selecionado
Word.FileSaveAs(´c:\temp\test.doc´, 3); //Salva o arquivo
end;
-----------------------------
AssignFile(Arq, ´nomearq.html´);
Rewrite(Arq);
Writeln(Arq, ´<html>´);
Writeln(Arq, ´<head>´);
Writeln(Arq, ´<title>SAAE S&o Leopoldo - RS</title>´);
Writeln(Arq, ´</head>´);
Writeln(Arq, ´´);
Writeln(Arq, ´<div align=´center´>´);
Writeln(Arq, ´<table border=0 width=´100¬´>´);
Writeln(Arq, ´<tr><td colspan=´4´ align=´center´ bgcolor=´0080FF´>´);
Writeln(Arq, ´´);
Writeln(Arq, ´Lancamento de Conv&nio
</td></tr>´);
Writeln(Arq, ´<tr><td colspan=´4´ align=´center´>´);
Writeln(Arq, ´</td></tr></table></div></html>´);
CloseFile(Arq);
---------------------------
Em vez de Quickreport1.Print faca :
QuickRep1.ExportToFilter(TQRHtmlExportFilter.Create(´teste.html´));
GOSTEI 0
Mantmor
08/01/2004
Caro amigo,
Tenho o relat[orio criado no QuickReport e quero exportar este mesmo relatório no formato do Word.
Mantmor
Tenho o relat[orio criado no QuickReport e quero exportar este mesmo relatório no formato do Word.
Mantmor
GOSTEI 0
Nigro
08/01/2004
QuickRep1.ExportToFilter(TQRHtmlExportFilter.Create(´teste.doc´));
GOSTEI 0