Imprimir documento do openoffice

30/09/2004

Alguem sabe como eu faco para imprimir um documento que esta no
openffice ?

Atualmente eu tenho um rotima para imprimir no word mas eu precisava
para o openoffice.

rotina para imprimir no word.

procedure TF_ACS.imprimecarta;
var
WinWord, Docs, Doc: Variant;
VelhoWord, NovoWord: variant;
begin
VelhoWord:=AdiquiraOuCrieObjeto(´Word.Basic´);
NovoWord :=AdiquiraOuCrieObjeto(´Word.Application´);
// Tornar o word visivel
NovoWord.Visible := False;
// Abrir arquivo para edição
DOC:=´´;

Doc:=
NovoWord.Documents.Open(´\\srv000\c$\sai\´+DM.IBQHistoricoHIS_ARQUIVO.AsStri
ng);
// Substituir itens do arquivo por texto escolhido

Doc.Content.Find.Execute(FindText := ´[DATA]´, ReplaceWith
:=copy(DATETOSTR(DATE),1,2)+ ´ de ´+
nomedomes(date)+ ´ de ´
+copy(formatdatetime(´dd,mm,yyyy´,date),7,4)) ;

Doc.Content.Find.Execute(FindText := ´[NOME]´, ReplaceWith :=
DM.IBQCXSNOM_NOME.AsString);
if DM.IBQEmpresa.IsEmpty=false then
Doc.Content.Find.Execute(FindText := ´[EMPRESA]´, ReplaceWith :=
DM.IBQEmpresaEMP_NOME.AsString);
Doc.Content.Find.Execute(FindText := ´[CONTRATO]´, ReplaceWith :=
DM.IBQCXSNUM_CONTRATO.AsString);
Doc.Content.Find.Execute(FindText := ´[VENCIMENTO]´, ReplaceWith :=
DM.IBQCXSDAT_VENCIMENTO.AsString);
Doc.Content.Find.Execute(FindText := ´[VALOR]´, ReplaceWith :=
formatcurr(´#.0´,DM.IBQCXSVLR_VALOR.AsCurrency));
Doc.Content.Find.Execute(FindText := ´[VEICULO]´, ReplaceWith :=
DM.IBQContratoBEM_MODELO.AsString);
Doc.Content.Find.Execute(FindText := ´[ANO]´, ReplaceWith :=
DM.IBQContratoBEM_ANO.AsString);
Doc.Content.Find.Execute(FindText := ´[PLACA]´, ReplaceWith :=
DM.IBQContratoBEM_PLACA.AsString);
Doc.Content.Find.Execute(FindText := ´[COR]´, ReplaceWith :=
DM.IBQContratoBEM_COR.AsString);
Doc.Content.Find.Execute(FindText := ´[CHASSI]´, ReplaceWith :=
DM.IBQContratoBEM_CHASSI.AsString);

// Salvar Documento
Doc.SaveAs(ExtractFilePath(Application.ExeName) + ´Contrato2.doc´);
// if Application.MessageBox(´Deseja Imprimir este
documento?´,´Confirmação´,MB_ICONQUESTION+MB_YESNO)=MRYes then
Doc.PrintOut(false);
doc.CLOSE;
// Fechar
NovoWord.Quit;
end;


Ronaldomr

Respostas

30/09/2004

Motta

já verificou na página do openoffice , ou outras páginas dele ?


Responder Citar

30/09/2004

Ronaldomr

sim


Responder Citar