Gerando arquivo no formato DOC (MS Word)
Bom dia pessoal, meu sistema gera orçamento em quick report, estou querendo gerar esses mesmo orçamentos em arquivo DOC (MS Word) para enviar por e-mail e meus fornecedores responder nos mesmos, onde posso encontrar documentação sobre esse assunto.
Obs.: Estou utilizando Delphi 7 e SQL Server 2000.
Att,
LMRoot.
Obs.: Estou utilizando Delphi 7 e SQL Server 2000.
Att,
LMRoot.
Lmroot
Curtidas 0
Respostas
Rinez
22/06/2007
Amigo:
Coloque um Buton e
procedure TForm1.BitBtn1Click(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
[b:95a87979ba]
{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
MSWord.FileSaveAs(´C:\Teste_Delphi.doc´); // salva o arquivo no diretório indicado
}[/b:95a87979ba]
end;
Responda aqui se deu certo
Coloque um Buton e
procedure TForm1.BitBtn1Click(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
[b:95a87979ba]
{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
MSWord.FileSaveAs(´C:\Teste_Delphi.doc´); // salva o arquivo no diretório indicado
}[/b:95a87979ba]
end;
Responda aqui se deu certo
GOSTEI 0
Cabal
22/06/2007
Caso vc esteja usando o QuickReport4, existem filtros para exportação para RTF, PDF e etc....
GOSTEI 0
Lmroot
22/06/2007
Eu estou usando o default do Delphi 7
GOSTEI 0