added LSL2 stored procedures

This commit is contained in:
Infineon\StieberD
2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions

View File

@ -0,0 +1,22 @@
compile function print_scanned_image( BMP )
declare function Printer_Select
$insert logical
$insert msg_equates
$insert popup_equates
$insert oiprint_equates
declare function set_printer, get_printer
*IF @USER4 = 'BRYCE_M' THEN
* DEBUG
*END
PrintPath = Printer_Select('',1) ;* Gets default printer path
Void = set_printer( 'INIT', '', '', .25:@fm:.25:@fm:.25:@fm:.25, '', 0, PrintPath )
Stat = set_printer("BMP", BMP, 0:@fm:0:@fm:7.5:@fm:10, 0, 0 )
Void = set_printer( 'TERM' )
RETURN 0