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