Código Delphi [-] begin try QReport1:= TQReport1.Create(self); QReport1.Preview; // o Print finally QReport1.Free; end;
begin try QReport1:= TQReport1.Create(self); QReport1.Preview; // o Print finally QReport1.Free; end;