Fórum Fechar o Preview do Quick Report depois de Imprimir #331082
13/10/2006
0
Vagner.oliveira
Curtir tópico
+ 0Posts
13/10/2006
Nigel
ainda não tinha pensado nisso antes...
Gostei + 0
16/10/2006
Vagner.oliveira
Tu tem alguma idéia de como pode ser feito isso :?:
Gostei + 0
16/10/2006
Vagner.oliveira
Tu tem alguma idéia de como pode ser feito isso, pelo menos pra termos um ponto de inicio... :?:
Gostei + 0
16/10/2006
Nigel
Nele eu sei que podemos mudar o caption do butão Close, cores e hints; soh que não encontrei nada a respeito dos eventos do botão....
Gostei + 0
17/10/2006
Beto_martini
No evento afterprint teste o exemplo abaixo:
procedure tform1.quickrep1afterprint(sender:tobject);
var ncont:integer;
nomeforma:string;
begin
ncont:=0;
while ncont<screen.formcount do
begin
nomeforma:=trimright(screen.forms[ncont].classname);
if nomeforma=´TQRStandardPreview´ then
screen.forms[ncont].close;
end;
ncont:=ncont+1;
end;
end;
Espero ter ajudado.
Um abraço.
Gostei + 0
17/10/2006
Nigel
soh que a linha: ncont := ncont + 1;
eu coloquei depois da linha : screen.forms[ncont].close;
e deu certinho....
valeu, irmão.....
Gostei + 0
17/10/2006
Beto_martini
Por erro de digitação o incremento de ncont ficou fora do loop.
valew, qualquer coisa estamos na area.
Gostei + 0
21/10/2006
Vagner.oliveira
Segue o código funcionando...
procedure tform1.quickrep1afterprint(sender:tobject); var ncont:integer; nomeforma:string; begin ncont:=0; while ncont<screen.formcount do begin nomeforma:=trimright(screen.forms[ncont].classname); if nomeforma=´TQRStandardPreview´ then screen.forms[ncont].close; ncont:=ncont+1; end;
Não entendi nada do código, mas funcionou beleza, valew pessoal e, aquele abraço.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)