Hi Dennis,
Here is a snippet of code that I use to check for available printers. V8
--Generates a temp table with all available printers 12/01/08
SET ERROR MESSAGE 2758 OFF
CREATE TEMP TABLE `tPRINTER_LIST` (`PRT_NAME_PATH` TEXT (80) )
COMMENT ON TABLE `tPRINTER_LIST` +
IS 'List of all printers available for this PC'
SET ERROR MESSAGE 2758 ON
SET VAR vprt_list = (CVAL('PRINTERS'))
SET VAR vprt_count INTEGER = (itemcnt(.vprt_list))
WHILE vprt_count > 0 THEN
SET VAR vprt_name_path = (SSUB(.vprt_list,.vprt_count))
INSERT INTO tprinter_list (prt_name_path) VALUES (.vprt_name_path)
SET VAR vprt_count = (.vprt_count -1)
ENDWHILE
John Engwer
(412) 751-2433
From: [email protected] [mailto:[email protected]] On Behalf Of Dennis
McGrath
Sent: Friday, September 16, 2011 3:12 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - 7.6 list of printers
Is there a way in 7.6 to test the existence and status of a printer?
Dennis McGrath
Software Developer
QMI Security Solutions
1661 Glenlake Ave
Itasca IL 60143
630-980-8461
[email protected]
