[delphi-br] Impressão de um documento Word delphi5

Thu, 17 Apr 2008 11:36:31 -0700 

Boa tarde. 


Tenho um determinado documento Word e gostaria de fazer alteracoes,
salva-lo e imprimir via sistema. Tem como ?

Tentei isto:7

Var
  Msword, Docs, Doc: Variant;

begin

  ArqCont:=DirExecutavel+Pega_Mem(Main.Manuten,'ArquivoTermo');
  CopyFile(Pchar(ArqCont),PChar('C:\termo.rtf'),False);
  ArqNovo:='c:\termo.rtf';

  Msword:=CreateOleObject('Word.Application');
  Msword.Visible:=True;
  Docs:=Msword.Documents;
  Doc:=Docs.Open(ArqNovo);
  Doc.Content.Find.Execute(FindText:='@desconto',ReplaceWith:='R$  
'+FormatFloat('###,##0.00',Editn2.ValueFloat));
  Doc.ActiveDocument.SaveAs(FileName := 'c:\termo.rtf');
  Doc.PrintOut(False, , , ArqNovo, , , , , , , True);

Nao deu muito certo

Doretto

[As partes desta mensagem que não continham texto foram removidas]

Responder a