Duda con el Qreport.

[yusnerqui]

Desido reabrir este magnífico hilo ya que me ha serbido de mucho en mi actual aplicación.

Pero me quedé trabado despues de bajar de la página de el amigo Cadetill ese maravilloso componente del que tanto se ha hablado en el club e intentar visualizar mi reporte (creado con QRCreatelist) no me lo visualiza correctamente.

Mi pregunta es:

Que debo implementar el el procedimiento ListadoOnPreview

Empezado por Lepe

Código Delphi [-]
  V.pQuickreport.OnPreview:= ListadoOnPreview;

De antemanos mil gracias

Un saludo a todos

[[Lepe]]

Todo un honor que se reabra un hilo en el que he participado.

como todo... hay varias formas de hacerlo, en su momento, y con prisas yo opté por hacerla de esta forma.

Código Delphi [-]
var :Tprevi;
implementation 
procedure botonClick(...)
begin
try
// introduzco en ListaCAmpos(stringlist) los campos que quiero que se vean de la tabla, despues

    v:=  TPrevi.Create(FrmMdi);
    FreeAndNil(v.pquickreport); 
    qrextra.QRCreateList(tcustomquickrep(v.pQuickreport) ,v , DTM.qryClientes,
                          'Clientes' ,ListaCampos);

    with TQRExpr(v.pQuickreport.Bands.PageFooterBand.Controls[0]) do
      expression := QuotedStr('Pág. ') +'+ PAGENUMBER   ';
// PAGENUMBER es una variable que entiende QUICKREPORTS


  v.pQuickreport.OnPreview:= ListadoOnPreview;
  v.pQuickreport.PreviewModal;//eless  ;

finally
  ListaCampos.Free;
end;


procedure tfrmclientes.ListadoOnPreview(Sender:TObject);
begin
  // en el evento Onpreview del TQuickRep
  // creado el previ al dar al boton imprimir
  with v do
  begin
    Caption := Caption + ' - Clientes';
//    pQuickReport := TQuickRep(Previ.pQuickreport);
    Preview.QRPrinter := TQRPrinter(Sender);
    pQuickreport.ReportTitle:= ' Clientes';
    pQuickreport.Font.Name:= 'Courier New';
    Show; // no uso preview, para que pueda continuar haciendo otras cosas
  end;
end;

[yusnerqui]

Muchas gracias Lepe, poco después de postear encontré la solución. A propósito a continuación vioy a mostrar lo que hago para configurar la página del reporte en tiempo de ejecución, me funciona bien en Windows 98 no lo he probado en otros sistemas operativos

Código Delphi [-]
  procedure TReport.Vistaprevia;
var
  Title:string;
  I : Integer;
begin
  Previ := TPrevi.Create(Self);
 //Creo el pQuickreport y cambio sus propiedades a gusto del usuario!!
  Previ.pQuickreport := TQuickRep.Create(Previ); 
  with Previ.pQuickreport do
  begin
    Page.Units :=  MM;
    Page.PaperSize := Custom;
    Page.Width  := 420.0;//Puede ser un valor definido por el usuario
    Page.Length := 270.0;//   "                                    "
  end;

  
  Title:=Edit1.Text;

 try
   if Campos1.items.Count >0 then
   begin
     QRCreatelist(TCustomQuickRep(Previ.pQuickreport),Previ,RTabla,Title,Campos1.Items);
    try
      with Previ.pQuickreport do
      begin
       with Bands.ColumnHeaderBand  do
       begin
         Font.Size := 12;
         Font.Style:= [fsBold];
         Frame.DrawBottom := True;
         for i := 0 to ControlCount -1 do
           if Controls[i] is TQRLabel then
             TQRLabel(Controls[i]).Frame.DrawBottom := False;
       end;
       with Bands.DetailBand do
       begin
         Font.Size := 12;
         //aquí capturo los campos boolean para redireccionar su evento 
         //onPrint y no me imprima True y False sino los caracteres que yo 
        //espesifique
         for i := 0 to ControlCount -1 do
           if Controls[i] is TQRExpr then
           begin
             Title := TQRExpr(Controls[i]).Expression;
             Title := Copy(Title,2,Length(Title)-2);
             if ord(RTabla.FieldByName(Title).DataType) = 5 then
             begin
               TQRExpr(Controls[i]).Alignment := taCenter;
               TQRExpr(Controls[i]).OnPrint:= MyOnPrint;
             end;
           end;
       end;
         Previ.pQuickreport.OnPreview:= MyPreview;
         Previ.pQuickreport.Preview;
      end;
    finally
      //
    end;
  end;
 finally
 //
 end ;

Este código está en fase de depuración, ahora la impementación de MyPreview

Código Delphi [-]
procedure TReport.MyPreview(Sender : TObject);
begin
  with Previ do
  begin
    Preview.QRPrinter := TQRPrinter(Sender);
    Show;
  end;
end;

Por último, no me preocupo por el ancho de las columnas pues lo primero que hago es mostrar los campos seleccionados en un DBgrid donde el usuario puede ajustar el ancho de cada campo a su antojo
y es todo, espero que a alguien le sirva si lo que quiere es configurar página, márgenes etc les ser virá esta idea.

Un saludo