Comandar a impressão com o World de um .DOC já pronto
18/06/2008
0
Como faço a linha de comando no Delphi para imprimir esse documento?
Obrigado.
Cps.art
Posts
19/06/2008
Antseralves
do botão faça o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
var MsWord : Variant;
begin
if OpenDialog1.Execute then
begin
MSWord := CreateOleObject(´Word.Application´);
MSWord.Documents.Open(OpenDialog1.FileName);
MSWord.ActiveDocument.PrintOut;
MSWord.ActiveDocument.Close;
end;
end;
Obs: Tem que dar uses em ComObj
20/06/2008
Cps.art
Na verdade eu nem preciso do OpenDialog, pois a impressão será de um DOC especifico.
Por exemplo:
Tenho os arquivos [b:d8db6de5a7]Modelo_1.doc[/b:d8db6de5a7], [b:d8db6de5a7]Modelo_2.doc [/b:d8db6de5a7]e [b:d8db6de5a7]Modelo_3.doc [/b:d8db6de5a7]na pasta [b:d8db6de5a7]C:\Modelos[/b:d8db6de5a7]
Terei 3 botões, [b:d8db6de5a7]IMPRIMIR MODELEO_1.DOC[/b:d8db6de5a7], [b:d8db6de5a7]IMPRIMIR MODELO_2.DOC[/b:d8db6de5a7] e [b:d8db6de5a7]IMPRIMIR MODELO_3.DOC[/b:d8db6de5a7].
Então quando se clicar num dos botões, a impressão será a do documento daquele botão.
Acho que basta alterar o código que você exemplificou acima que dará certo, porem eu não tenho muito conhecimento em comandos de impressão e gostaria que me ajudasse.
Muito obrigado.
21/06/2008
Mazzi
ex:
procedure TForm1.Button1Click(Sender: TObject);
var MsWord : Variant;
begin
MSWord := CreateOleObject(´Word.Application´);
MSWord.Documents.Open(´c:\teste.doc´);
MSWord.ActiveDocument.PrintOut;
MSWord.ActiveDocument.Close;
21/06/2008
Cps.art
Com a dica do [b:bb49b5bfc7]antseralves[/b:bb49b5bfc7], cheguei na sugestão do [b:bb49b5bfc7]mazzi[/b:bb49b5bfc7].
Brigadão, pessoal.
Agora estou tentando alterar o [b:bb49b5bfc7]items.strings [/b:bb49b5bfc7]de uma [b:bb49b5bfc7]ComboBox[/b:bb49b5bfc7] em tempo de execução.
É possível?
Qualquer ajuda é bem vinda.
Abraços
Clique aqui para fazer login e interagir na Comunidade :)