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;
.
viernes, 7 de octubre de 2016
Suscribirse a:
Entradas (Atom)