Problema con el boton imprimir del reporte en Report Builder

[Diana Carolina]

Código Delphi [-]
procedure TFrmRepFormulario.spbGenerarClick(Sender: TObject);
begin
  inherited;

   QryTipoPersona.ParamByName('tipo').AsString := QryTipoTipo.AsString;
   QryTipoPersona.ParamByName('nit1').AsString := QryNit1Nit.AsString;
   QryTipoPersona.ParamByName('nit2').AsString := QryNit2Nit.AsString;
   if (gGeMotor = ORACLE ) then
      QryTipoPersona.SQL.Strings[6]:=' '
   else ///si es SQL_SERVER u otro
     QryTipoPersona.SQL.Strings[6]:=' ';

   QryTipoPersona.Close;
   QryTipoPersona.Open;
///aqui agregue validacion//   
   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.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;
///Aqui agregue validacion///
    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;
///Agregue validacion/// 
 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.ppReportepers1PreviewFormCreate(
  Sender: TObject);
begin
  inherited;
  ppReportepers1.PreviewForm.WindowState := wsMaximized;
end;

procedure TFrmRepFormulario.ppReportepers1BeforePrint(
  Sender: TObject);
begin
  inherited;

  if QryTipoPersona1.RecordCount = 0 then
     exit;

  Qry1.ParamByName('Tipo').AsString := QryTipoPersona1Tipo.AsString;
  Qry1.ParamByName('Nit').AsString := QryTipoPersona1Nit.AsString;
  Qry1.Open;

  Qry2.ParamByName('Tipo').AsString := QryTipoPersona1Tipo.AsString;
  Qry2.ParamByName('Nit').AsString := QryTipoPersona1Nit.AsString;
  Qry2.Open;

  Qrynuevo.ParamByName('TipId').AsString := QryTipoPersona1Tipo.AsString;
  Qrynuevo.ParamByName('NitCliente').AsString := QryTipoPersona1Nit.AsString;
  Qrynuevo.Open;

  Qry4.ParamByName('Tipo').AsString := QryTipoPersona1Tipo.AsString;
  Qry4.ParamByName('Nit').AsString := QryTipoPersona1Nit.AsString;
  Qry4.Open;

end;

procedure TFrmRepFormulario.ppReportepers2PreviewFormCreate(
  Sender: TObject);
begin
  inherited;
  ppReportepers2.PreviewForm.WindowState := wsMaximized;
end;

procedure TFrmRepFormulario.ppReportepers2BeforePrint(
  Sender: TObject);
begin
  inherited;

  if QryTipoPersona2.RecordCount = 0 then
     exit;

  Qry1.ParamByName('Tipo').AsString := QryTipoPersona2Tipo.AsString;
  Qry1.ParamByName('Nit').AsString := QryTipoPersona2Nit.AsString;
  Qry1.Open;

  Qry2.ParamByName('Tipo').AsString := QryTipoPersona2Tipo.AsString;
  Qry2.ParamByName('Nit').AsString := QryTipoPersona2Nit.AsString;
  Qry2.Open;

  Qrynuevo.ParamByName('TipId').AsString := QryTipoPersona2Tipo.AsString;
  Qrynuevo.ParamByName('NitCliente').AsString := QryTipoPersona2Nit.AsString;
  Qrynuevo.Open;

  Qry4.ParamByName('Tipo').AsString := QryTipoPersona2Tipo.AsString;
  Qry4.ParamByName('Nit').AsString := QryTipoPersona2Nit.AsString;
  Qry4.Open;

end;

procedure TFrmRepFormulario.ppReportepers2AfterPrint(
  Sender: TObject);
begin
  inherited;

   ppReportepers2.ShowPrintDialog := true;
   ppReportepers2.ShowCancelDialog := True;

  Qry1.Close;
  Qry2.Close;
  Qrynuevo.Close;
  Qry4.close;
 
end;

procedure TFrmRepFormulario.ppReportepers1AfterPrint(
  Sender: TObject);
begin
  inherited;
   ppReportepers1.ShowPrintDialog := true;
   ppReportepers1.ShowCancelDialog := True;

  Qry1.Close;
  Qry2.Close;
  Qrynuevo.Close;
  Qry4.close;

end;

[Diana Carolina]

Ok...les cuento que el problema de imprimir parece ser solo en mi computador, un compañero compilo el mismo fuente en su equipo y no existe ningun problema al imprimir por cualquier lado,,,lo curioso es que me paso el ejecutable que funciona en su equipo y al abrirlo en el mio no funciona,,,es el mismo codigo fuente y cuando lo compilo en mi equipo queda con el problema,,,si lo paso a otro equipo no funciona, el de mi compañero si....Quiza alguno de ustedes pueda explicarme el por que de esto...Gracias

[Casimiro Noteví]

¿Puede ser configuración de la impresora?, ¿los drivers?, también hay un pequeño truco cuando ocurren "cosas raras", borra el fichero reportbuilder.ini que está en c:\windows

[[oscarac]]

Empezado por Diana Carolina

Ok...les cuento que el problema de imprimir parece ser solo en mi computador, un compañero compilo el mismo fuente en su equipo y no existe ningun problema al imprimir por cualquier lado,,,lo curioso es que me paso el ejecutable que funciona en su equipo y al abrirlo en el mio no funciona,,,es el mismo codigo fuente y cuando lo compilo en mi equipo queda con el problema,,,si lo paso a otro equipo no funciona, el de mi compañero si....Quiza alguno de ustedes pueda explicarme el por que de esto...Gracias

Ghost in the Machine.....

[Diana Carolina]

Muchas Gracias efectivamente parece ser problema de la configuracion de la impresora....