Agregar hojas en qreport

[david duarte]

que quieres hacer en tu reporte mamp67, disculpa, estoy un poco atareado con este proyecto, si nos comentas mas, probablemente te podemos ayudar.

Cómo te sientes hoy??

[david duarte]

Oigan!!!

Bueno, la primera cosa

Como le hago para mandar imprimir directamente a la impresora, mencionaron que si usaba el OnNeedData, podria imprimir directamente desde un grid si necesidad de tener un datasource, como le haria para que se impriman como aparecen en el grid???

Y en el caso contrario no el encuentro como crear un nuevo reporte y despues unirlos, tienen algun ejemplo, estuve viendo, pero no entiendo nada

Gracias
Cómo te sientes hoy??

[jachguate]

Empezado por david duarte

como crear un nuevo reporte y despues unirlos, tienen algun ejemplo, estuve viendo, pero no entiendo nada

Pues ejemplo no, pero si buscas por TQRCompositeReport, podes hallar algunos. Si no recuerdo mal, el método para agregar reportes es AddReport.

Hasta luego.

[david duarte]

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
     { Private declarations }
   public
     { Public declarations }
   end;
 var
   Form1: TForm1;
   mem: array of TQRMemo;
 implementation
 {$R *.DFM}
 procedure TForm1.FormCreate(Sender: TObject);
 var
   i, izq: Integer;
 begin
  setlength(mem,5); //asignamos el tamaño a el arreglo
    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; // with
    end; //for
end;//Begin
 
 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

[david duarte]

Hola!!!!

he seguido haciendo pruebas y pruebas, pero no me funciona eso de agregar paginas!!!!

Ya no se ni que hacer!!!

he checado y probablemente tenga que ver con el tamaño de la banda..

Tambien estuve leyendo y cada vez que creas un TQRDBText, se agrega una banda de detalle, y la no me sirve de nada!!! me urge!! alguien sabe porque hace esto???

o en caso de que pueda mandarlo directamente la impresora(puedo usar el NeedData)?? o cual??

Gracias
Cómo te sientes hoy??