DECLARE
  oExcel OLE2.OBJ_TYPE;
  oWorkbooks  OLE2.OBJ_TYPE; 
  Book1 OLE2.OBJ_TYPE;
  oArgList OLE2.LIST_TYPE;
BEGIN
  oExcel := OLE2.Create_Obj ('Excel.Application');
  Ole2.Set_property( oExcel,'Visible',True);
  oWorkbooks := OLE2.GET_OBJ_PROPERTY (oExcel, 'Workbooks');
  -- 
  oArgList := OLE2.CREATE_ARGLIST;
  OLE2.ADD_ARG (oArgList, 'C:\TEST1.XLS');
  Book1 := OLE2.Invoke_Obj( oWorkbooks, 'Open', oArgList);
  OLE2.DESTROY_ARGLIST (oArgList);
  -- 
  OLE2.Invoke( Book1, 'PrintOut' );
  -- 
  OLE2.Invoke( oExcel, 'Quit' );
  -- 
  OLE2.RELEASE_OBJ( Book1 );
  OLE2.RELEASE_OBJ( oWorkbooks );
  OLE2.RELEASE_OBJ( oExcel );
  -- 
  Message( 'OK' );
  Message( ' ', NO_ACKNOWLEDGE );
END;