Oigan, ya encontre una solucion, hice unas pruebas añadiendo un qrmemo en la banda de detalle, y si son 100 le añado 100 lineas y se imprime automaticamente en la otra hoja.
Ahora lo que pasa es que cuando creo los tqrmemo en tiempo de ejecucion, si me los crea, pero no los muestra al momento de hacer el preview.
Anexo el codigo para que me ayuden a revisar mi codigo, se me hace extraño que no me las visualize, porque he creado las Labels y esas si me las muestra.
Gracias.
Cómo te sientes hoy??
complemento:
Les agrego el codigo, la verdad no entiendo porque no me los muestra
Código Delphi
[-]
unit memos;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, qrctrls,
QuickRpt, ExtCtrls;
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRBand2: TQRBand;
QRBand3: TQRBand;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure QuickRep1AfterPreview(Sender: TObject);
private
public
end;
var
Form1: TForm1;
mem: array of TQRMemo;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
i, izq: Integer;
begin
setlength(mem,5); izq :=0;
for i:=0 to 4 do
Begin
mem[i] := TQRMemo.Create(QRBand3);
with mem[i] do
Begin
left := izq;
autostretch := True;
color := clBlack;
izq := izq+ 40;
parent := QRBand3;
enabled := True;
visible := True;
end; end; end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := CaFree;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
quickrep1.Preview;
end;
procedure TForm1.QuickRep1AfterPreview(Sender: TObject);
var
i,contmem : Integer;
begin
i :=0;
for i := sizeof(mem) downto 0 do
showmessage(inttostr(i)+' memos');
end;
end.
Nueva parte
Gracias a todos lo que me ayudaron en este problemilla, Se los agradezco
ya encontre la solucion, solamente faltaba ponerle el memo[i] en el parent, ya que como nada mas tenia el parent solo, por lo que supongo es que no creo el qrmemo en donde le dije, quien sabe en donde lo habrá creado.
Simplmente le pusse
memo[i].Parent := QRBand3
y ya.
Gracias
Cómo te sientes hoy