WITH This.oleOpos lnRetVal = .Open(lcOposName) if lnRetVal <> 0 return .f. endif do while not .Claimed .Claim(100) enddo IF .ResultCode = 0 .DeviceEnabled = .T. .AsyncMode = .F. .PrintBarCode(2, tcString, 108, 80, 250, -2, -13) ENDIF .Close() ENDWITH