Fórum No quick Report Visualiza um coisa e Imprime outra! #285907
23/06/2005
0
Visualiza uma coisa e imprime outra, alguem sabe porque poderia estar acontecendo isto?
Daniel Miranda Cruz
Daniel_mc
Curtir tópico
+ 0Posts
23/06/2005
Aroldo Zanela
Quando se efetua o ´preview´ é efetuada uma leitura e processamento de algum resultset (ex. Query) e quando vc mandar para impressora novamente os dados são ´rolados´ e o processamento é refeito, podendo desta forma, ter uma impressão diferente da previsão. Pelo que entendi, o referido QRLabel deve estar sendo alterado dinamicamente em algum evento relacionado a deslocamento do cursor do banco (After ou Before do RS).
Gostei + 0
23/06/2005
Daniel_mc
procedure T_etiquetaprof.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin if length(_pesquisa.CTurma.Text)=7 then codigo.caption:=copy(_pesquisa.ano,3,2)+´/´+copy(_pesquisa.CTURMA.Text,1,2)+´.´+copy(_pesquisa.CTURMA.Text,5,2)+´.´+InttoStr(cont) else codigo.caption:=copy(_pesquisa.ano,3,2)+´/´+copy(_pesquisa.CTURMA.Text,1,3)+´.´+copy(_pesquisa.CTURMA.Text,6,2)+´.´+InttoStr(cont); bimestre.Caption:=_pesquisa.cbimestre.Text; ano.caption:=_pesquisa.ano+´.´+_pesquisa.semestre; sigla.Caption:=´(´+dm.qetiprofSigla.value+´)´; cont:=cont+1; end;
O QRLabel referido é o codigo. E no fim dele vc pode ver que ele recebe esse contador ´cont´ que é incrementado a cada beforePrint. Quando o Form do Quick Report é iniciado ele (o cont) recebe 1. Ai a cada before ele vai incrementando, entende?
Não consigo entender o porque disto...
Gostei + 0
23/06/2005
Adriano Santos
é só zerar a variavel antes de imprimir.
Gostei + 0
23/06/2005
Daniel_mc
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)