Problema ao imprimir
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.
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
Curtidas 0
Respostas
Pecchiai
08/10/2005
José Carlos eu tive esse problema e resolvi desabilitando o display de tela com DisableControls e EnableControls.
GOSTEI 0
Mordred
08/10/2005
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
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
GOSTEI 0
Mordred
08/10/2005
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 :-)
http://forum.clubedelphi.net/viewtopic.php?t=31376&highlight=exception+eoserror+++module
Problema resolvido :-)
GOSTEI 0