Etiquetas de código de barras en QuickReport

[Casimiro Noteví]

Empezado por José Luis Garcí

Espero ahora quede más claro

Ahora sí

¿No puedes repetir la impresión tantas veces como necesites?

Código Delphi [-]
for iContador:=1 to iMaxEtiquetas do
  PrintEtiqueta("829373745848");

Algunos "reporteadores" tienen un componente especial para etiquetas donde puedes indicar cuántas quieres imprimir, pero desconozco el que estás usando.

[[fjcg02]]

Hola abuelete,
en el quickreport tienes un ejemplo que te indica cómo hader eso.

Básicamente no le enchufas datasource al informe, y en el evento onprint de la banda, le sumas uno a un contador hasta que hagas tantas copias como quieras.

Un saludo

[[José Luis Garcí]]

Empezado por fjcg02

Hola abuelete,
en el quickreport tienes un ejemplo que te indica cómo hader eso.

Básicamente no le enchufas datasource al informe, y en el evento onprint de la banda, le sumas uno a un contador hasta que hagas tantas copias como quieras.

Un saludo

hola compañero, me pasas el ejemplo si lo tienes a mano.

[[fjcg02]]

El problema es ése, que no tengo el ejemplo a mano...

[[José Luis Garcí]]

Ok, Javier lo buscare

[[fjcg02]]

Básicamente pones un report con una banda...

pones una variable private o publica...

private
i:integer;


pones un botón que haga el preview del report poniendo la variable a 0
i:= 0;
QReport1.Preview;

en el procedure onneeddata del report pones esto...

Código Delphi [-]
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  i:= i+1;
  if i<=10 then
  begin
    moreData:= True;
    QRLabel1.Caption:= 'Hola '+inttostr(i);
  end;
end;

y ya está...
Saludos

[[José Luis Garcí]]

Lo probare JAvier, Gracias como siempre.
De todas maneras encontré una demo en la página de QuickReport