| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
mastervip
Novato
Registrado: Quarta-Feira, 25 de Julho de 2007
Mensagens: 24
|
 Enviada: Sáb Jun 28, 2008 9:31 pm Assunto: QuickReport: Como Forçar 10 detalhes por pagina? |
 |
|
Pessoal...
Estou fazendo um recibo de venda usando quickreport onde cada pagina so pode conter 10 itens, mas estou com problemas. Esses itens estão na banda DETAIL que se chama QRBand2.
Pensei em fazer o seguinte:
| Código: | procedure TFormRelatorio.QRBand2AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
if ((Query1.Recno mod 10) = 0) then
begin
QRBand2.ForceNewPage:=TRUE;
end else
begin
QRBand2.ForceNewPage:=FALSE;
end;
end; |
Esse codigo deveria funcionar mas ele retorna 20 itens na primeira pagina e no restante ele retorna 10 itens corretamente.
Alguem poderia me ajudar?
Nao consigo entender o por que esse codigo retorna 20 itens na primeira pagina.
Se alguem souber como fazer isso e puder me ajudar eu agradeço.
Obrigado
Master |
|
| Voltar ao Topo |
|
 |
Diogo_Cury
Aprendiz
Registrado: Sexta-Feira, 9 de Junho de 2006
Mensagens: 139
|
| Enviada: Dom Jun 29, 2008 3:01 am Assunto: |
|
|
Usa uma variavel sua como contador no lugar do recno
_________________
Solução Completa pra Nota Fiscal Eletrônica:
Componentes em Delphi com manual completo,
intereçados: diogo_cury_flores@hotmail.com |
|
| Voltar ao Topo |
|
|
mastervip
Novato
Registrado: Quarta-Feira, 25 de Julho de 2007
Mensagens: 24
|
| Enviada: Dom Jun 29, 2008 7:29 am Assunto: |
|
|
Já tentei fazer usando uma variavel pra contar e da o mesmo problema.
Na primeira pagina ele deixa 20 itens e a partir da segunda ele coloca 10 itens por pagina como deve ser.
Alguem te ideia de como arrumar isso? |
|
| Voltar ao Topo |
|
|
abagattini
Mestre
Registrado: Terça-Feira, 29 de Novembro de 2005
Mensagens: 758
Localização: Porto Alegre/RS
|
| Enviada: Qui Jan 15, 2009 11:19 am Assunto: |
|
|
| Já tentou colocar este código no evento BeforePrint e não no AfterPrint. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
