Imprimir nro. de copia con QReport.

[Walterio]

Hola a todos...!!!
Trataré de ser claro :
Con Delphi 6 , QReport 3.0.9 y una impresora térmica Zebra estoy armando unas etiquetas con las medidas de impresión personalizadas , las cuales se imprimen perfectamente.
Mi problema pasa porque necesito imprimir en cada etiqueta el número de copia, por ejemplo :
Tengo una etiqueta que lleva 6 copias, hasta allí todo funciona bien, pero lo que necesito es que en la misma etiqueta se imprima el número de copia, por ejemplo, en cada una debería salir algo asi como "Etiqueta Nº 2 copia 1", "Etiqueta Nº 2 copia 2", "Etiqueta Nº 2 copia 3"...probé con pagenumber y otras cosas raras pero no hay caso.Hasta incluso intenté hacer algo parecido a un ejemplo que me pasaron la semana pasada con algo parecido (
http://http://www.clubdelphi.com/foros/showthread.php?p=443419#post443419
) pero tampoco, hasta ahora todo lo que probé me sale siempre "Etiqueta Nº 2 copia 1", "Etiqueta Nº 2 copia 1", "Etiqueta Nº 2 copia 1".

Desde ya, muchas gracias.

Saludos

[Casimiro Notevi]

Pues si allí dices que te funciona perfectamente, aquí tiene que funcionar igual de perfectamente porque es lo mismo, es que es la misma pregunta.

En lugar de:

Código Delphi [-]
case nCopias of     
  1: lblTipoCopia.Caption := 'Original';     
  2: lblTipoCopia.Caption := 'Duplicado';     
  3: lblTipoCopia.Caption := 'Triplicado';     
  4: lblTipoCopia.Caption := 'Cuadruplicado';   
end;    
Inc(nCopias);

Sería esto:

Código Delphi [-]
case nCopias of    
  1: lblTipoCopia.Caption := '1';    
  2: lblTipoCopia.Caption := '2';    
  3: lblTipoCopia.Caption := '3';    
  4: lblTipoCopia.Caption := '4';  
end;  
Inc(nCopias);

O resumiendo:

Código Delphi [-]
lblTipoCopia.Caption := inttostr(nCopias);

Debería de combinar ambos hilos porque es lo mismo, como dije antes.

[Walterio]

Gracias Casimiro por la respuesta.
Lo que omití decir es que aquí, con las etiquetas, no uso Composite como en el ejemplo anterior, sólo le agrego la cantidad de copias mediante :

Código Delphi [-]
(reporte as TQuickRep).PrinterSettings.Copies := nNroCopias;

De todas formas, voy a probarlo, aunque intenté hacer algo parecido y no funcionó.
Pruebo y comento que tal fué.

Muchas gracias

Saludos.

[Walterio]

Casimiro, acabo de probarlo y no me funciona.
Pongo el código en el beforePrint, y al debugearlo, veo que sólo pasa por allí una sola vez, en vez de pasar una vez por cada copia a imprimir :

Código Delphi [-]
procedure TStickerRecepcion.StickerBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
   lblNro.Caption := IntToStr(nCopias);
   Inc(nCopias);
end;

lo cual es raro...¿no?

Sigo probando...

Saludos.

[Casimiro Notevi]

Yo no conozco el qreport, pero debe tener algún evento que te venga mejor, por el ejemplo el mismo del label que vas a imprimir.

[kapcomx]

Walterio
y si pones ese codigo en el before print de la banda no en el before print del quickreport tal vez asi si te funcione el incremento de tu variable.

Saludos...