Colegas,
Tô garrado com um probleminha. Já testei de várias
formas mas não funcionou.
Quando a variável objetivo é 'gerar' não ocorre erro
mas quando é 'imprimir' ocorre os erros abaixo.
Erro "...class EInvalidOperation with message 'Canvas
does not allow drawing'..." ocorre quando executo o
programa pelo Delphi.
E erro "Exception EOSError in module...System Error.
Code: 1400. O identificador da janela é inválido"
ocorre quando programa é executado fora do Delphi
(ocorre ao encerrar o programa).
O que está acontecendo? Não achei nenhuma lógica para
os erros. Segue abaixo o código.
procedure TFrmGerarContrato.bbtImprimirClick(Sender:
TObject);
begin
//IMPRIMIR ARQUIVO
if (objetivo = 'imprimir') then
begin
if (FileExists(caminhoArq + '\' + nomeDoc) =
False) then
ShowMessage('Arquivo não existe')
else
begin
ShowMessage('Existe');
Doc := Docs.Open(caminhoArq + '\' + nomeDoc);
Imprimir;
Doc.Close;
end;
end;
//GERAR ARQUIVO
if (objetivo = 'gerar') then
begin
Doc := Docs.Open(caminhoArq + '\' + nomeDoc);
Doc.SaveAs(caminhoArq + '\' + nomeDoc);
SubstituiCampos; //faz alterações
Doc.Save;
Doc.Close;
end;
end;
_______________________________________________________
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e
muito mais. Instale agora!
www.yahoo.com.br/messenger/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
