![[About]](r:\html\lsrxabout.gif)
![[Toc]](r:\html\lsrxtoc.gif)
0.9b (c) 1995 Peter Childs
The function creates a printer device. The printer drivers used must be installed before using this function.
Syntax
MyRc = RxSplCreateDevice(ComputerName, RxStem)
Parameters
The required parameter values are:
ComputerName Must be either be specified as '' for a local computer or
'\\computername'. For the remote case, administrator
authority is required
'RxStem' A REXX variable which is divided into:
o RxStem.PrinterName
The printer name
o RxStem.LogAddr
The printer port logical address. (For example LPT2). The port
address must exist
o RxStem.Comment
The printer device description
o RxStem.Drivers
The printer drivers supported by this print device. If more than one
printer driver is specified, the ',' must be used as separator
o RxStem.TimeOut
The printer device timeout value
Example use
/* Create a printer device */
if RxFuncQuery('RxSplCreateDevice') <> 0 then do
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs
end
ComputerName = '\\ILIDC'
RxStem.PrinterName = 'TestDev'
RxStem.LogAddr = 'LPT3'
RxStem.Comment = 'Test of REXX Printer Device create'
RxStem.Drivers = 'IBMNULL,IBM4019.IBM 4019 LaserPrinter'
RxStem.TimeOut = 54
MyRc = RxSplCreateDevice(ComputerName, RxStem)
if MyRc <> '0' then do
say 'Error from RxSplCreateDevice. RC =' MyRc
exit 9
end
else do
say 'Printer Device' RxStem.PrinterName 'created successfully'
end
exit 0
Inf-HTML End Run - Successful