viernes, 7 de octubre de 2016

configurar Rave Report delphi informes

componente RvProject1
---------------------------
parametro Engine -> RvSystem1
parametro ProjectFile -> C:\bases\prueba.rav


componente RvSystem1
---------------------------
DefaultDest -> rdPrinter
SystemPrinter -> Copies -> 1  // numero de copias
SystemPrinter -> Title -> Titulo de la impresion

SystemSetups -> ssAllowSetup -> false   // para imprimir directamente


componente RvNDRWriter1
---------------------------



uses (...), inifiles;

(...)

procedure TForm1.Button1Click(Sender: TObject);
var
ini: TIniFile;
nombreImpresora: string;
begin

  ini := TIniFile.Create('./parametros.ini');
  nombreImpresora:=ini.ReadString('parametros', 'impresora', '');
  ini.Free;

  if nombreImpresora='' then
  begin
    ShowMessage('Error al leer el fichero PARAMETROS.INI');
    exit;
  end;

  RvProject1.Open;
  if RvNDRWriter1.SelectPrinter(nombreImpresora)=false then
  begin
    ShowMessage('No exite impresora');
  end
  else
  begin
    RvProject1.Execute;
    RvProject1.Close;
  end;


end;






.