Fórum Problema ao imprimir #298810
08/10/2005
0
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.
José Silva
Curtir tópico
+ 0Posts
11/10/2005
Pecchiai
Gostei + 0
05/12/2005
Mordred
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
05/12/2005
Mordred
http://forum.clubedelphi.net/viewtopic.php?t=31376&highlight=exception+eoserror+++module
Problema resolvido :-)
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)