WinWor, Docs e Doc são variáveis do tipo OleVariant.
Observe que o código funciona no trecho para "GERAR" e não em "IMPRIMIR" que
são bem parecidos.
Tentei todas as sugestões surgidas e nada de solução....
Edmilson Pontes
Elazar <[EMAIL PROTECTED]> escreveu:
esta variavel Doc e de que tipo? esta inicializada?
>
>>----- Original Message -----
>>From: "Edmilson Pontes"
<[EMAIL PROTECTED]>
>>To: "Delphi-BR" <delphi-br@yahoogrupos.com.br>
>>Sent: Thursday, September 29, 2005 3:21 PM
>>Subject: [delphi-br] Erro estranho
>>>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!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
