Exportar relatório para o Word
12/09/2004
0
Olá pessoal,
Gostaria de uma ajuda quanto a exportar dados de um relatorio para o Word e já salvar o arquivo gerado em um destino sem que precise de acessar o word na mao. Agradeço desde já a ajuda.
Sânzio Amora
InforPlay Informática
Gostaria de uma ajuda quanto a exportar dados de um relatorio para o Word e já salvar o arquivo gerado em um destino sem que precise de acessar o word na mao. Agradeço desde já a ajuda.
Sânzio Amora
InforPlay Informática
Sanzio
Curtir tópico
+ 0
Responder
Posts
12/09/2004
Edmarss
Inclua na seção uses: ComObj
var
Word: Variant;
begin
{ Abre o Word }
Word := CreateOleObject(´Word.Application´);
try
{ Novo documento }
Word.Documents.Add;
try
{ Adiciona tabela de 2 linhas e 3 colunas }
Word.ActiveDocument.Tables.Add(
Range := Word.Selection.Range,
NumRows := 2,
NumColumns := 3);
{ Escreve na primeira célula }
Word.Selection.TypeText(Text := ´Linha 1, Coluna 1´);
{ Próxima célula }
Word.Selection.MoveRight(12);
{ Escreve }
Word.Selection.TypeText(Text := ´Linha 1, Coluna 2´);
Word.Selection.MoveRight(12);
Word.Selection.TypeText(Text := ´Linha 1, Coluna 3´);
Word.Selection.MoveRight(12);
Word.Selection.TypeText(Text := ´Linha 2, Coluna 1´);
Word.Selection.MoveRight(12);
Word.Selection.TypeText(Text := ´Linha 2, Coluna 2´);
Word.Selection.MoveRight(12);
Word.Selection.TypeText(Text := ´Linha 2, Coluna 3´);
{ Auto-Formata }
Word.Selection.Tables.Item(1).Select; { Seleciona a 1º tabela }
Word.Selection.Cells.AutoFit; { auto-formata }
{ Imprime 1 cópia }
Word.ActiveDocument.PrintOut(Copies := 1);
ShowMessage(´Aguarde o término da impressão...´);
{ Para salvar... }
Word.ActiveDocument.SaveAs(FileName := ´c:\Tabela.doc´);
finally
{ Fecha documento }
Word.ActiveDocument.Close(SaveChanges := 0);
end;
finally
{ Fecha o Word }
Word.Quit;
end;
end;
var
Word: Variant;
begin
{ Abre o Word }
Word := CreateOleObject(´Word.Application´);
try
{ Novo documento }
Word.Documents.Add;
try
{ Adiciona tabela de 2 linhas e 3 colunas }
Word.ActiveDocument.Tables.Add(
Range := Word.Selection.Range,
NumRows := 2,
NumColumns := 3);
{ Escreve na primeira célula }
Word.Selection.TypeText(Text := ´Linha 1, Coluna 1´);
{ Próxima célula }
Word.Selection.MoveRight(12);
{ Escreve }
Word.Selection.TypeText(Text := ´Linha 1, Coluna 2´);
Word.Selection.MoveRight(12);
Word.Selection.TypeText(Text := ´Linha 1, Coluna 3´);
Word.Selection.MoveRight(12);
Word.Selection.TypeText(Text := ´Linha 2, Coluna 1´);
Word.Selection.MoveRight(12);
Word.Selection.TypeText(Text := ´Linha 2, Coluna 2´);
Word.Selection.MoveRight(12);
Word.Selection.TypeText(Text := ´Linha 2, Coluna 3´);
{ Auto-Formata }
Word.Selection.Tables.Item(1).Select; { Seleciona a 1º tabela }
Word.Selection.Cells.AutoFit; { auto-formata }
{ Imprime 1 cópia }
Word.ActiveDocument.PrintOut(Copies := 1);
ShowMessage(´Aguarde o término da impressão...´);
{ Para salvar... }
Word.ActiveDocument.SaveAs(FileName := ´c:\Tabela.doc´);
finally
{ Fecha documento }
Word.ActiveDocument.Close(SaveChanges := 0);
end;
finally
{ Fecha o Word }
Word.Quit;
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)