compile SUBROUTINE Print_React_Read_Worksheet( ReactList ) DECLARE FUNCTION SECURITY_CHECK, SET_PRINTER, GET_PRINTER, MSG, FIELDCOUNT, ENTID, REPOSITORY, PRINTER_SELECT DECLARE FUNCTION OBJ_INSTALL DECLARE SUBROUTINE SECURITY_ERR_MSG, ErrMsg $INSERT OIPRINT_EQUATES $INSERT MSG_EQUATES $INSERT APPCOLORS EQU PI$LEFT TO 1 EQU PI$TOP TO 2 EQU PI$RIGHT TO 3 EQU PI$BOTTOM TO 4 EQU PI$WIDTH TO 5 EQU PI$HEIGHT TO 6 EQU PI$SIZE TO 7 EQU COL$REACTOR TO 1 EQU COL$TYPE TO 2 EQU COL$ASSIGN TO 3 EQU COL$WAFER_CNT TO 4 IF NOT(ASSIGNED(ReactList)) THEN RETURN * * * PRINT SETUP * * * PageInfo = '' PageInfo = 0.5 ;* Margins PageInfo = 1.35 PageInfo = 0.5 PageInfo = 0.50 PageSetup = 0 ;* 1 = Landscape mode PrintSetup = 2 ;* 0 = Print to printer without Preview stat = Set_Printer("INIT",'Printing','Reactor Reading Worksheet',PageInfo,PageSetup,PrintSetup) font = 'Arial' ;* Font basics font<2> = 10 font<4> = 0 stat = Set_Printer('FONTHEADFOOT', font) stat = Set_Printer('FOOTER',"Page 'P' ":@VM:@VM:"'T' 'D'") stat = Set_Printer('LINESTYLE', PS_SOLID:@FM:2) stat = Set_Printer('LINE', -0.1:@FM:-1.2:@FM:7.5:@FM:-1.2, 1) stat = Set_Printer('LINE', -0.1:@FM:-0.1:@FM:7.5:@FM:-0.1, 1) location = -.15:@fm:-1.150:@fm:1.57:@fm:1 stat = Set_Printer('BMP',obj_Install('Get_Prop','ColorBMP'),location, 0,1) * * * * Added 10/8/2015 JCH - Updated 'CONFIG','COMPANY' * * * * InstDat = obj_Install('Get_Prop','Company':@FM:'Division') Company = InstDat<1> Division = InstDat<2> font = 'Arial' font<2> = '12' ;* Big type font<4> = 1 ;* Bold on font<5> = 0 ;* Italics stat = Set_Printer('TEXTXY',Company,5.7:@FM:-1.15,font,1) stat = Set_Printer('TEXTXY',Division,5.7:@FM:-0.970,font,1) font<2> = 10 ;* 10 point font font<4> = 0 ;* Bold off font<5> = 0 ;* Italics Off stat = Set_Printer('TEXTXY',obj_Install('Get_Prop','Address'), 5.7:@fm:-0.775, font,1) stat = Set_Printer('TEXTXY',obj_Install('Get_Prop','CSZC'), 5.7:@fm:-0.625, font,1) stat = Set_Printer('TEXTXY','Tel: ':obj_Install('Get_Prop','Phone'), 5.7:@fm:-0.475, font, 1) stat = Set_Printer('TEXTXY','FAX: ':obj_Install('Get_Prop','FAX'), 5.7:@fm:-0.325, font, 1) * * * * End of changes 10/8/2015 JCH * * * * font<2> = '16' ;* Big type font<4> = 1 ;* Bold on font<5> = 1 ;* Italics stat = Set_Printer('TEXTXY','Reactor Readings Worksheet',1.95:@FM:-0.80,font,0) font<2> = '10' font<4> = 0 ;* Bold off font<5> = 0 ;* Italics Off stat = Set_Printer('FONT', font) ;* Problem with default font getting set by 'TEXTXY' messages above colHeader = 'Reactor No' ; colFormat = '^1440' colHeader<1,2> = 'Type' ; colFormat<1,2> = '<1800' colHeader<1,3> = 'Assignment' ; colFormat<1,3> = '^1800' colHeader<1,4> = 'Reactor No' ; colFormat<1,4> = '^1440' colHeader<1,5> = 'WaferCnt' ; colFormat<1,5> = '^1800' font = 'Arial' ;* Font basics font<2> = 10 font<4> = 1 ;* Bold font<5> = 0 ;* Italic Off fontSpacing = 110 stat = Set_Printer("FONT",font,fontspacing) IF stat < 0 THEN GOTO OIPrintErr stat = Set_Printer('ADDTABLE', colFormat,colHeader,'',LTGREY$,'',0,7) ;* Print column headings bold w/grey background font<4> = 0 ;* Bold off stat = Set_Printer('FONT',font,fontspacing) LineCnt = COUNT(ReactList,@FM) + (ReactList NE '') FOR I = 1 TO LineCnt colData = ReactList:@VM:ReactList:@VM:ReactList:@VM:ReactList:@VM:ReactList IF MOD(I,2) THEN stat = Set_Printer('ADDTABLE',colFormat,'',colData,'',RCV_BLUE$,1,7) ;* Print column data END ELSE stat = Set_Printer('ADDTABLE',colFormat,'',colData,'','',1,7) ;* Print column data END NEXT I stat = Set_Printer('TEXT') Void = Set_Printer('TERM') RETURN * * * * * * * OIPrintErr: * * * * * * * ErrMsg(ErrorTitle:@SVM:ErrorMsg) ErrMsg(ErrorTitle:@SVM:'Set_Printer returned errorcode ':stat) stat = Set_Printer('TERM',1) RETURN