Problema con el boton imprimir del reporte en Report Builder

[Diana Carolina]

ok...bueno anteriormente el reporte funcionaba correctamente...es decir el boton imprimir del formulario y el imprimir que esta en la vista preliminar mostraban el reporte completo, me toco meterle la validacion de qrynuevo por un cambio en el nombre de un campo en una tabla, despues de ese cambio me sucedio el problema con el imprimir de la vista preliminar...los eventos afterprint y beforeprint estan programados.

Código Delphi [-]
procedure TFrmRepFormulario.spbPreliminarClick(Sender: TObject);
begin
  inherited;
  if Qrytipopersona.AsString = 'A' then
    begin
     VarTipoIdCl := Qrytipopersonatipo.AsString;
     ppReportepers1.DeviceType := dtScreen;
     ppReportepers1.Print;
    end
  else
    begin
     VarTipoIdCl := Qrytipopersonatipo.AsString;
     ppReportepers2.DeviceType := dtScreen;
     ppReportepers2.Print;
    end;
  Qrynuevo.Close;
  if FrmPrincipal.QryperteneceFirma.AsString = '001' then
     begin
          Qrynuevo.SQL.Strings[2]:='A.ALGO,';
          Qrynuevo.SQL.Strings[11]:='AND OP.ALGO = A.ALGO';
     end
   else
      begin
          Qrynuevo.SQL.Strings[2]:='A.OTRO,';
          Qrynuevo.SQL.Strings[11]:='AND OP.OTRO = A.ALGO'
      end;

  Qrynuevo.open;
end;

procedure TFrmRepFormulario.spbImprimirClick(Sender: TObject);
var
  i : Integer;
  Pers1,Pers2 : Boolean;
begin
  inherited;
  Pers1 := False;
  Pers2 := False;
  for i := 0 to Qrypersona.RecordCount -1 do
  begin
    if Qrytipopersona.AsString = 'A' then
      begin
       VarTipoIdCl := Qrytipopersonatipo.AsString;
       ppReportepers1.DeviceType := dtPrinter;
       if Pers1 then
         begin
           ppReportepers1.ShowPrintDialog := False;
           ppReportepers1.ShowCancelDialog := False;
         end;
       ppReportepers1.Print;
       Pers1 := True;
      end
    else
      begin
       VarTipoIdCl := Qrytipopersonatipo.AsString;
       ppReportepers2.DeviceType := dtPrinter;
       if PersNat then
         begin
           ppReportepers2.ShowPrintDialog := False;
           ppReportepers2.ShowCancelDialog := False;
         end;
       ppReportepers2.Print;
       Pers2 := True;
      end;
    Qrytipopersona.FindNext;
   end;
  Qrynuevo.Close;//***Aqui agregue
if FrmPrincipal.QryperteneceFirma.AsString = '001' then
     begin
          Qrynuevo.SQL.Strings[2]:='A.ALGO,';
          Qrynuevo.SQL.Strings[11]:='AND OP.ALGO = A.ALGO'
     end
   else
      begin
          Qrynuevo.SQL.Strings[2]:='A.OTRO,';
          Qrynuevo.SQL.Strings[11]:='AND OP.OTRO = A.ALGO'
      end;

  Qrynuevo.open;  
end;

Cuando le doy click en vista preliminar muestra el fromulario con toda la informacion(Completo),,,pero al darle click en el boton de imprimir que sale en esa misma ventana, es decir la ventana con el reporte que saca el report builder...no imprime el formulario completo

[[oscarac]]

Sigo sin entender a que le llamas "reporte completo"

si la unica variacion que has echo es esta

Código Delphi [-]
Qrynuevo.Close;//***Aqui agregue
if FrmPrincipal.QryperteneceFirma.AsString = '001' then
  begin
    Qrynuevo.SQL.Strings[2]:='A.ALGO,';
    Qrynuevo.SQL.Strings[11]:='AND OP.ALGO = A.ALGO'
  end
else
  begin
    Qrynuevo.SQL.Strings[2]:='A.OTRO,';
    Qrynuevo.SQL.Strings[11]:='AND OP.OTRO = A.ALGO'
end;

puede ser que el reporte tenga "grupos" y que por la condicion agregada no te este saliendo la informacion que tu deseas....

[Diana Carolina]

El reporte se compone de subreportes,,,lo que me mata la cabeza es que al darle en el boton imprimir de la ventana del delphi los muestra todos (Formulario completo con toda la informacion) y cuando entro a vista preliminar y me despliega el "print preview"(Vista preliminar muestra formulario completo con toda la informacion) al mandar a imprimir por el boton que trae por defecto la ventana "Print preview" en la hoja que imprimo solo muestra el pie de pagina...(osea formulario incompleto)....