Ver Mensaje Individual
  #6  
Antiguo 05-10-2006
Avatar de lbidi
lbidi lbidi is offline
Miembro
 
Registrado: oct 2003
Ubicación: Montevideo- URUGUAY
Posts: 417
Reputación: 21
lbidi Va por buen camino
Hola, ade.
Si se puede, por lo menos a mi me deja .
Solo tengo creado el QR, y dos bandas, Titulo y Detalle.
Luego en el evento beforeprint asignas los QrDbtext y los QrLabels.
Aqui te dejo un ejemplo

Código Delphi [-]
      With TQRLabel.Create( Self ) do
      begin
          Name       := 'txPorc' + IntToStr(aListas[i]);
          AutoSize   := True;
          Font.Style := [fsBold];
          Height      := 17;
          Left         := nCol;
          Top          := 32;
          Caption     := ' % ' + IntToStr(aListas[i]);
          Parent      := Banda_Titulo;
      end;
      With TQRDBText.Create( Self ) do
      begin
          DataSet    := Rep_Margenes.DataSet;
          Name        := 'lbPorc' + IntToStr(aListas[i]);
          DataField   := '  % ' + IntToStr(aListas[i]);
          Mask         := '.0,0';
          Alignment   := taRightJustify;
          Font.Name  := 'Arial';
          Font.Height := -11;
          Font.Size    := 8;
          Parent       := Banda_Detalle;
          Top     := 1;
          Left           := nCol;
          AutoSize    := True;
      end;

Suerte y saludos.
Responder Con Cita