Delphi - Word

Delphi

25/06/2003

Gostaria de saber como faço para mandar para o Word um pesquisa feita em SQL. E que esses registros da pesquisa apareçam dentro de uma tabela no Word.
Obrigado.


Jackson_luiz

Jackson_luiz

Curtidas 0

Respostas

Afischer

Afischer

25/06/2003

Caro delphiano,

este exemplo é de como montar tabelas no Word e escrever nelas. Ele pode ser adaptado para a sua finalidade.

Inclua na seção uses: ComObj

{ - Coloque um botão no Form;
- Altere o evento OnClick do botão conforme abaixo: }

 
procedure TForm1.Button1Click(Sender: TObject);
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;



Espero ter ajudado

André Fischer


GOSTEI 0
Rscrj

Rscrj

25/06/2003

COMO FAÇO PARA AO ENVES DE CRIAR UMA TABELA DENTRO DO WORD EU POSSA PEGAR AS INFORMAÇÕES DO MEU BANCO DE DADOS E COLOCA-LAS NO WORD.


GOSTEI 0
POSTAR