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;


Ronaldomr

Ronaldomr

Responder

Posts

30/09/2004

Motta

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


Responder

30/09/2004

Ronaldomr

sim


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar