Fechar o Preview do Quick Report depois de Imprimir
Procurei no fórum sobre este tópico e não encontrei nada a respeito. Alguém sabe como fazer isso.
Vagner.oliveira
Curtidas 0
Respostas
Nigel
13/10/2006
kara, seria uma boa eu utilizar isso nas minhas aplicações....
ainda não tinha pensado nisso antes...
ainda não tinha pensado nisso antes...
GOSTEI 0
Vagner.oliveira
13/10/2006
kara, seria uma boa eu utilizar isso nas minhas aplicações....
ainda não tinha pensado nisso antes...
Tu tem alguma idéia de como pode ser feito isso :?:
GOSTEI 0
Vagner.oliveira
13/10/2006
kara, seria uma boa eu utilizar isso nas minhas aplicações....
ainda não tinha pensado nisso antes...
Tu tem alguma idéia de como pode ser feito isso, pelo menos pra termos um ponto de inicio... :?:
GOSTEI 0
Nigel
13/10/2006
Acho que podemos começar pelo arquivo QrPrev.dfm (que fica em borland/delphi/lib)
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....
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
Beto_martini
13/10/2006
Olá colega.
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.
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
Nigel
13/10/2006
Deu certo sim...
soh que a linha: ncont := ncont + 1;
eu coloquei depois da linha : screen.forms[ncont].close;
e deu certinho....
valeu, irmão.....
soh que a linha: ncont := ncont + 1;
eu coloquei depois da linha : screen.forms[ncont].close;
e deu certinho....
valeu, irmão.....
GOSTEI 0
Beto_martini
13/10/2006
Tem razão nigel.
Por erro de digitação o incremento de ncont ficou fora do loop.
valew, qualquer coisa estamos na area.
Por erro de digitação o incremento de ncont ficou fora do loop.
valew, qualquer coisa estamos na area.
GOSTEI 0
Vagner.oliveira
13/10/2006
Deu certo sim...
soh que a linha: ncont := ncont + 1;
eu coloquei depois da linha : screen.forms[ncont].close;
e deu certinho....
valeu, irmão.....
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