Fórum Problema ao imprimir #298810

08/10/2005

0

Ola Pessoal gostaria que me ajudasse a resolver um probleminha no meu aplicativo.

O problema é o seguinte:

Fiz um form com os botões de cadastro e um botão para impressão, acontece que uso todos os recurso do programa e saiu dele sem problema nenhum, mais quando clico no botão para imprimir ele funciona enquanto eu estiver usando o programa, so que ao sair do programa aparece uma mensagem de erro informando o seguinte erro:

“Exceção EOSError no Modulo Imóveis.exe not 0000E66E
Erro do Sistema Código 1400
O identificador da janela é invalido”

O comando que se encontra no botão de imprimir é o seguinte:

(((CABEÇALHO))))

private
FReport : TQuickRep;
procedure SetReport(Value : TQuickRep);
public
ST, tipo:string;
bok : boolean;
property Report : TQuickRep read FReport write SetReport;
end;


(((COMANDO DO BOTÃO)))

procedure TfrmConsProprietario.btnImprimirClick(Sender: TObject);
var
bookmark : tbookmarkstr;
begin
bookmark := dm.Proprietario.Bookmark;
application.CreateForm(TfrmRelProprietario, frmRelProprietario);
frmMenu.logotipoExecute(self);
if fileexists (extractfilepath(paramstr(0)) + ´\imagem\logo.bmp´) then
begin
frmRelProprietario.image1.Picture.assign(clipboard);
clipboard.clear;
end;
if fileexists (extractfilepath(paramstr(0)) + ´\imagem\dado.txt´) then
frmRelProprietario.memo1.lines.loadfromfile(extractfilepath(paramstr(0)) +´\imagem\dado.txt´);


if dm.Proprietario[´Nome´] <> null then
st := dm.Proprietario[´Nome´];

if application.messagebox (´Deseja imprimir apenas este Proprietario?´, ´Impressão´, 4 +
MB_ICONWARNING) = mryes then



begin
dm.Proprietario.Filter := ´nome = ´´´ + st + ´´´´;
dm.Proprietario.Filtered := true;
st := ´´;
frmRelProprietario.quickficha.PreviewModal;
dm.Proprietario.Filtered := false
end
else
begin

dm.Proprietario.IndexFieldNames := ´nome´;
frmRelProprietario.quickgrupo.PreviewModal;
dm.Proprietario.IndexFieldNames := ´´;
end;

frmRelProprietario.release;

dm.Proprietario.Bookmark := bookmark;
end;

Se alguem poder me ajudar ficarei muito grato! Um abrço a todos.

[color=red:4db36244aa][b:4db36244aa]Título/Texto editado por Massuda. Favor não postar em maiúsculas[/b:4db36244aa][/color:4db36244aa]



José Silva

José Silva

Responder

Posts

11/10/2005

Pecchiai

José Carlos eu tive esse problema e resolvi desabilitando o display de tela com DisableControls e EnableControls.


Responder

Gostei + 0

05/12/2005

Mordred

Estou tendo um problema bastante parecido aqui, mas minha aplicação é bem mais simples.

No meu caso, criei um relatório simples usando Quick Report, com as bands page header, column header, detail e footer.
Coloquei um código no evento BeforePrint que abre o dataset e filtra os registros antes de imprimir.
Na aplicação, criei um botão que, quando clicado, chama o relatório através do método PreviewModal.

Só isso e quando encerro a aplicação também aparece o ´EOSError identificador de janela inválido´.
Qual seria o problema? Pra ser sincero, não entendi muito bem o que foi escrito neste último post... :-P


Responder

Gostei + 0

05/12/2005

Mordred

OK, continuei procurando no fórum e encontrei esse tópico:
http://forum.clubedelphi.net/viewtopic.php?t=31376&highlight=exception+eoserror+++module

Problema resolvido :-)


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar