Imprimir documento do openoffice
30/09/2004
0
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;
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
Curtir tópico
+ 0
Responder
Posts
30/09/2004
Motta
já verificou na página do openoffice , ou outras páginas dele ?
Responder
Clique aqui para fazer login e interagir na Comunidade :)