23 lines
524 B
Plaintext
23 lines
524 B
Plaintext
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
|