Etiquetas de código de barras en QuickReport

[[José Luis Garcí]]

Hola Compañeros estoy trabajando con mi Delphi 2010 firebird 2.5 y Quickreport 5, mi duda es la siguiente, necesito imprimir un número determinado de etiquetas con el código de barras, todas son iguales.

He probado a ponerlas en columnas y es muy cómodo y fácil de hacer, pero me imprime cada etiqueta con un registro de la Tabla y no es lo que quiero.

Hay alguna manera de hacerlo así, ya que queda mucho mejor.

De momento, tengo instalados un montón de QRImagen y qrlabels, que tengo que llenar antes de imprimir o ver el informe.

El problema es que ahora quieren que imprima en tres formatos (tamaños) diferentes, lo cual es un coñazo y siempre queda alguna etiqueta desplazada.

Como siempre gracias por vuestra ayuda.

[Casimiro Notevi]

No sé si es porque hoy no me he tomado el café, pero yo no me he enterado de nada

[[José Luis Garcí]]

Empezado por Casimiro Notevi

No sé si es porque hoy no me he tomado el café, pero yo no me he enterado de nada

Vale repito

Lo que quiero hacer es sacar las etiquetas de código de barras de un determinado producto, en una hoja saldrían 50 etiquetas iguales (realmente son tres formatos en el que varia el tamaño y serian 50,60 y 75 según sea el tamaño seleccionado).

Los datos están en una base de datos, así que si los cojo de ahí, me sale cada etiqueta con un código de barras diferente y lo uqe quiero es que salgan todas iguales con el que he seleccionado.

Espero ahora quede más claro

[Casimiro Notevi]

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