Main Menu

KB#00453-_outdev.utl doesn't print compressed

Title:

_outdev.utl doesn't print compressed

Description:

When calling the _outdev.utl, choosing a printer, and selecting compressed print, the resultant printout is not in compressed print. However, opening up the printer in BBx and issuing the 'CP' mnemonic works. 

Resolution:

The utility should have a section of code that is similar to (hopefully even at the same line numbers): 

1160 LET PRINT_FIN$=FIN(CHANNEL),OUT_COLS=ASC(PRINT_FIN$(7,1)) 
1170 IF TAOS_RUNTIME=0 THEN LET DUMMY$=STBL("STDOUT",DEVICE$) 
1180 IF TAOS_RUNTIME THEN CLOSE (CHANNEL); IF STYLE THEN LET OUT_COLS=STYLE 
1190 RETURN 

Change line 1160 to: 

1160 IF STYLE<>1 THEN PRINT (CHANNEL)'CP' FI;LET PRINT_FIN$=FIN(CHANNEL), OUT_COLS=ASC(PRINT_FIN$(7,1)) 

Note: 
To put the IF statement on a different line from the LET statement, the IF statement must be put at line 1160. There is a GOTO up above in the program that references this line number (we converted a line label to an explicit line number). 

ALSO Note: 

TAOS will need this information passed back to it, the following code demonstrates how this can be done: 

CALL "_OUTDEV.UTL",DEV$,SYLE 
IF STYLE=2 THEN 
SET DISPLAY/COMPRESSED 



Last Modified: 02/23/2004 Product: TAOS: The Developers Workbench Operating System:All platforms

BASIS structures five components of their technology into the BBx Generations.

View BASIS LinkedIN Profile Visit our Twitter Feed Check out our Facebook Public Profile Click to View the BASIS youTube channel