QuickReport, 4 copias de un listado con distintos pies

[[Lepe]]

En el evento BeforePrint de ese qrLabel, puedes modificarlo a voluntad y cambiar el texto.

Código Delphi [-]
procedure .... Label1BeforePrint(....);

begin
 case label1.tag of:
   0: Text := 'Ejemplar para el INTERESADO';
   1: Text := 'Ejemplar para el ESTABLECIMIENTO DE CREDITO A REMITIR ';
   2: Text := 'Ejemplar para el ESTABLECIMIENTO DE CREDITO';
   3: Text := 'Ejemplar a CONSERVAR POR LA OFICINA GESTORA';
 end;
 label1.tag := label1.tag + 1;

Ignoro como funciona cuando se le da a "imprimir varias copias" igual hace una sola imagen de lo que se va a imprimir y después envía 4 copias de esa imagen. Si funciona así, no te sirve "mi idea", quizás tengas que usar otra cosa, por ejemplo:

Código Delphi [-]
qrListado.PreviewModal;
  for i:= 1 to 4  do
    qrListado.Print; // se envía 4 veces a imprimir.

Edito: Pues no leí el primer mensaje de ElKurgan, pero la idea es la misma en QuickReports.

Saludos y suerte

[Jose Manuel]

Gracias por las ideas, el proceso funciona bien cuando imprimimos sin visualizar el listado, pero si elegimos visualizar el listado, surgen los siguientes problemas:
1º El usuario puede optar por no imprimir
2º Si pulsa imprimir, sale una copia o las que hayamos seleccionados pero todas iguales,
3º Si despues del Print_autoliq.QR_autoliq.PreviewModal; pongo algo, siempre se ejecutará despues de que el usuario cierre el listado, y tal vez el usuario no lo sepa o se le olvide.

Lo ideal, sería capturar la pulsación de la tecla IMPRIMIR cuando estamos previsualizando este listado, y ejecutarlo como cuando se imprime directamente.

Muchas gracias por vuestra ayuda, veré si soy capaz de hacer esto

Un saludo a todos
Jose Manuel

Código Delphi [-]
    mensaje:='Quieres pre-visualizar el listado antes de imprimirlo (SN)';
    Button := Application.MessageBox(pChar(mensaje), 'Seleccionar opción', MB_YESNOCANCEL +
    mb_DefButton1);

    if Button = IDYES  then
       begin
       Print_autoliq.QR_autoliq.PreviewModal;
       // Si pulsamos IMPRIMIR, Deberiamos capturar la llamada y
       // ejecutarla como cuando se imprime directamente.
       end;

    if Button = IDNO   then // no previsualiza e imprime directamente
    begin
       case impr_liq_copias.itemindex of
    -1,0: begin {en el combobox se ha selecionado todas las copias}
          nCopias:=4;
          Print_autoliq.QR_autoliq.QRLabelEjemplar.tag := 0;
          end;
       1: begin {en el combobox se ha selecionado la 1º copia}
          nCopias:=1;
          Print_autoliq.QR_autoliq.QRLabelEjemplar.tag := 0;
          end;
       2: begin {en el combobox se ha selecionado la 2º copia}
          nCopias:=1;
          Print_autoliq.QR_autoliq.QRLabelEjemplar.tag := 1;
          end;
       3: begin {en el combobox se ha selecionado la 3º copia}
          nCopias:=1;
          Print_autoliq.QR_autoliq.QRLabelEjemplar.tag := 2;
          end;
       4: begin {en el combobox se ha selecionado la 4º copia}
          nCopias:=1;
          Print_autoliq.QR_autoliq.QRLabelEjemplar.tag := 3;
          end;
       end;
       for i:= 1 to nCopias  do
       begin
        case Print_autoliq.QR_autoliq.QRLabelEjemplar.tag of
        0: Print_autoliq.QR_autoliq.QRLabelEjemplar.caption := 'Ejemplar para el INTERESADO';
        1: Print_autoliq.QR_autoliq.QRLabelEjemplar.caption := 'Ejemplar para el ESTABLECIMIENTO DE CREDITO A REMITIR ';
        2: Print_autoliq.QR_autoliq.QRLabelEjemplar.caption := 'Ejemplar para el ESTABLECIMIENTO DE CREDITO';
        3: Print_autoliq.QR_autoliq.QRLabelEjemplar.caption := 'Ejemplar a CONSERVAR POR LA OFICINA GESTORA';
        end;
       Print_autoliq.QR_autoliq.QRLabelEjemplar.tag := Print_autoliq.QR_autoliq.QRLabelEjemplar.tag + 1;
       Print_autoliq.QR_autoliq.Print; // se imprime el nº de copias seleccionado.
      end;
    end;