Impressão do word pelo Delphi

16/05/2008

1

Olá pessoal...estou com um pequeno problema, montei a seguinte estrutura no delphi.

Word := CreateOleObject(´Word.Application´);
Word.Documents.open(´c:\´+edit1.text+´.doc´);
Word.ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter:=true;
Word.ActiveWindow.ActivePane.View.SeekView := 9;
Word.Selection.Insertbefore(#9+9+9+9+´Ato nº ´+edit2.Text);
Word.Selection.Insertbefore(9+9+9+9+´Folha ´+edit3.Text);
Word.Selection.Insertbefore(9+9+9+9+´Livro ´+edit4.Text);
word.ActiveDocument.printout(pages:=1);
word.close;
Word.quit;

a intenção era imprimir apenas a primeira pagina, ou apenas a segunda e ai por diante, so que acaba imprimindo todas as paginas, alguem sabe como fazer isso funcionar??

vlw..


Responder

Posts

bom pessoal, achei uma solução alternativa, criei uma macro que faz o que eu quero e a executei pelo delphi, usando a linha.

word.run(´marco1´);

mais se tiver outra saida me falem ai plz...


Responder
Eu to com outro probleminha pessoal....tava precisando criar um loop, que identificasse o fim do documento.

achei o comando eof, mais não consegui faze-lo funcionar, alguem poderia me dar um help???


Responder