John,

Works in 7.6.

Thanks

Dennis McGrath
Software Developer
QMI Security Solutions
1661 Glenlake Ave
Itasca IL 60143
630-980-8461
[email protected]
________________________________
From: [email protected] [mailto:[email protected]] On Behalf Of John Engwer
Sent: Friday, September 16, 2011 2:34 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - RE: 7.6 list of printers

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]

Reply via email to