added LSL2 stored procedures
This commit is contained in:
22
LSL2/STPROC/PRINT_SCANNED_IMAGE.txt
Normal file
22
LSL2/STPROC/PRINT_SCANNED_IMAGE.txt
Normal 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
|
Reference in New Issue
Block a user