Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-03-2017
ingel ingel is offline
Miembro
 
Registrado: jun 2003
Posts: 209
Poder: 15
ingel Va por buen camino
Numerador de hojas en el Beforeprint

Buendia a todos , utilizo QReport y estoy tratando de numerar las hojas de un reporte desde un Nº x que ingreso manualmente . El Nro de hoja lo voy incrementando en el BeforePrint , el problema que tengo es que cuando se hace el Preview pasa x el beforeprint y lo incrementa bien y se ve bien , pero cuando lo mando a imprimir VUELVE A PASAR por el beforeprint y me sigue incrementando el numero de hoja y se imprime mal..
por ej. Inicio en Nro hoja = 5 ..
voy a imprimir 2 hojas ... en el preview veo Nº hojas 5 y 6 ( correcto ) , pero al imprimir me imprime la 7 y la 8 ( incorrecto )
No logro encontrar como hacer para que pase una sola vez por el beforeprint o no se si lo pedo solucionar de otra manera..
Lei en otros hilos algunas situaciones parecidas , pero no logre solucionarlo..

gracias ..
Responder Con Cita
  #2  
Antiguo 22-03-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 9.837
Poder: 27
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Intenta al modo de este ejemplo:
Código Delphi [-]
// BeforePrint, iniciar contador de páginas
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  FPageNo := 1;  // (*)
end;

// OnStartPage mostrar contador en etiqueta e incrementarlo
procedure TForm1.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
  QRLabel2.Caption := IntToStr( FPageNo );
  Inc( FPageNo );
end;
(*) En el ejemplo FPageNo es una variable privada de TForm1.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 23-03-2017
ingel ingel is offline
Miembro
 
Registrado: jun 2003
Posts: 209
Poder: 15
ingel Va por buen camino
Hola ecfisa , gracias por tu respuesta...
Probe lo que me indicaste , pero sigue comportandose de la misma forma.. Hago el preview y lo veo bien y
al imprimir pasa nuevamente por ese evento y me incrementa el numerador...

Sabes si tengo alguna forma en el QReport de saber si estoy en modo Preview o en Print al recorrer un evento ?
Gracias
Responder Con Cita
  #4  
Antiguo 23-03-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 9.837
Poder: 27
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Es muy extraño lo que te sucede ya que el evento TQuickRep.BeforePrint se dispara con el método Print tanto como con el método Preview, por lo que la variable que contabiliza las páginas se inicializa en ambos casos.

Hice una prueba muy básica para que puedas corroborar el comportamiento que te describí antes. Te adjunto los fuentes de la misma mas la tabla country.db (que viene con Delphi) para que puedas revisarla con tranquilidad.
Solo crea una carpeta, descomprime el adjunto allí y compílalo, espero te sirva de ayuda.

Saludos
Archivos Adjuntos
Tipo de Archivo: zip ingel.zip (5,8 KB, 2 visitas)
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #5  
Antiguo 28-03-2017
ingel ingel is offline
Miembro
 
Registrado: jun 2003
Posts: 209
Poder: 15
ingel Va por buen camino
Gracias Ecfisa ..
Lo solucione con una par de variables de control que puse en los eventos que me indicaste ..
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Hojas de Excel... Jose Roman OOP 12 03-03-2009 17:50:53
Evento beforeprint QR lbidi Impresión 1 21-08-2008 22:00:36
QuickReport2.BeforePrint chozas Impresión 0 18-07-2006 21:33:46
Hojas de estilo en PHP roman PHP 3 12-04-2005 17:07:05
Reporte de 2 hojas Carlex Impresión 5 07-05-2004 03:04:38


La franja horaria es GMT +2. Ahora son las 07:21:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi