Changeset 22

Legend:

Unmodified

Added

Removed

• trunk/gui/shared/PrintUtl.VRS

  r19	r22
  328	328	PARSE ARG driver, driverfull, model
  329	329
  330	(追記) ok = 0 (追記ここまで)
  330	331	targetdir = globals.!os2dir'\DLL\'driver
  331	332	IF ( VRFileExists( targetdir'\'driver'.DRV') == 0 ) THEN DO
  332	333	CALL VRMkDir targetdir
  333	(削除) rc (削除ここまで) = CopyDriverToSource( driverfull, targetdir )
  334	(追記) ok (追記ここまで) = CopyDriverToSource( driverfull, targetdir )
  334	335	END
  335	336	IF VRGetIni('PM_DEVICE_DRIVERS', driver, 'USER', 'NoClose') <> driverfull THEN
  336	337	CALL VRSetIni 'PM_DEVICE_DRIVERS', driver, driverfull||'00'x, 'USER'
  337	338	CALL VRSetIni 'PM_SPOOLER_DD', driver'.'model, driver'.DRV;;;'||'00'x, 'SYSTEM'
  338	RETURN (削除) rc (削除ここまで)
  339	RETURN (追記) ok (追記ここまで)
  339	340
  340	341
  …	…
  350	351	setup = 'PORTNAME='portname';PRINTDRIVER='driver'.'model';QUEUENAME='queuename';TAKEDEFAULTS=YES'
  351	352
  352	(削除) rc (削除ここまで) = SysCreateObject('WPPrinter', printername, '<WP_DESKTOP>', setup';OBJECTID='oid';', 'F')
  353	IF (削除) rc (削除ここまで) == 1 THEN
  353	(追記) ok (追記ここまで) = SysCreateObject('WPPrinter', printername, '<WP_DESKTOP>', setup';OBJECTID='oid';', 'F')
  354	IF (追記) ok (追記ここまで) == 1 THEN
  354	355	CALL SysMoveObject oid, '<WP_PRINTERSFOLDER>'
  355	356	ELSE
  356	(削除) rc (削除ここまで) = SysCreateObject('WPPrinter', printername, '<WP_DESKTOP>', setup';', 'F')
  357
  358	RETURN (削除) rc (削除ここまで)
  357	(追記) ok (追記ここまで) = SysCreateObject('WPPrinter', printername, '<WP_DESKTOP>', setup';', 'F')
  358
  359	RETURN (追記) ok (追記ここまで)
  359	360
  360	361

Note: See TracChangeset for help on using the changeset viewer.