Subs Printing.Incl

'~'5
//  DEF LPRINT
'~'5
runtime FBPrintDialog
#if CarbonLib
'~'4
gFBPRCancel = fn FBPrintDialog
'~'4
#else
gFBPRCancel = _False
PrOpen
long if fn FBGetPRHandle == _noErr
gFBPRCancel = (fn PrJobDialog(gFBPRHandle&) == 0)
gFBPrintRect;8 = @gFBPRHandle&..prInfo.rPage%
PrClose
end if
#endif
end fn