fixed tab order. stopped report generation when printer selection is canceled. cleaned up printer select code

This commit is contained in:
Infineon\StieberD
2024-09-09 16:27:59 -07:00
parent 93fb3477b8
commit bd08d486a1
4 changed files with 35 additions and 45 deletions

View File

@ -34,6 +34,7 @@ END
Params = Dialog_Box( 'REACTOR_LOG_SRPT1', @WINDOW, '*CENTER' )
IF Params = 'CANCEL' OR Params = '' THEN
RETURN
END
@ -129,6 +130,8 @@ PageSetup = '1' ;* Landscape = 1
PrintSetup = '2' ;* Preview Normal
PrintPath = Printer_Select()
If PrintPath EQ '' then return
stat = Set_Printer('INIT',FileName,Title,PageInfo,PageSetup,PrintSetup,PrintPath)
IF stat < 0 THEN GOTO OIPrintErr