ActiveDelphi

[djtatao]

Boa tarde, tudo bem?
Pessoal estou fazendo a impressão do arquivo em word, mas estou tendo problema pois a tela de seleção da impressora esta ficando atraz do aplicativo.

Para imprimir segue o código.


Dlg := lcWinWord.Dialogs.Item(wdDialogFilePrint); // chama a caixa de impressao do word
Retorno := Dlg.Display; // mostra a caixa
if Retorno = -1 then // se o retorno for -1 então executa
Dlg.Execute;


Alguem ja passou por isso, ou tem uma solução.
Ja tentei ativar a impressora corrente do word com o printdialog, mas em algumas maquinas esta dando que não tem corrente, mas tem..
Obrigado a todos.