OIPI Report (OpenInsight 32-bit Specific)
At 07 JUN 2011 12:23:34PM Marty Rosenbloom wrote:
Hi,
I have created a report using SET_PRINTER using OI7.2 on Windows 7 Pro. The report has a fixed number of columns (25) and a variable number of rows. The table uses a grid (TB_ALL) to create a cell for each entry. One of the columns is a delivery date. All like dates are grouped together and a blank row inserted in the data to separate different dates. This all works fine. I would like to add two enhancements to this report:
1. Increase the row height
2. Shade in every other row.
I have used TABLECELL but when I change the row height the entire report goes black. If I remove the grid, the row height on the report increases. If I use a "For….Next" routine to shade in the rows, the blank rows disappear. The code is:
Backcolor="
Backcolor=RGB(228, 228, 228)
Backcolor=RGB(228, 228, 228)
Stat=Set_Printer("INIT", "WORK_SCHEDULE", "", Margins, 1, 3)
Stat=Set_Printer("FONTHEADFOOT", HeaderFont1)
Stat=Set_Printer("FONT", ColBodyFont)
Stat=Set_Printer("HEADER", HeaderText)
Stat=Set_Printer("FONT", ColHeaderFont)
Stat=Set_Printer("LINESTYLE", PS_SOLID:@FM:50)
Stat=Set_Printer("ADDTABLE", ColWidth1,"", Table1, RGB(228, 228, 228), RGB(228, 228, 228), 1, 9)
Stat=Set_Printer("ADDTABLE", ColWidth2,"", Table2, RGB(228, 228, 228), RGB(228, 228, 228), 1, 7)
Stat=Set_Printer("FONT", ColBodyFont)
Stat=Set_Printer("STARTTABLE")
For i=1 to Lines
x=Set_Printer("ADDTABLE", ColWidth3, "", MyData[i], "", Backcolor, 1, 7)
Next i
Stat=Set_Printer("TABLECELL",7:@fm:1:@fm:2:@fm:30:@fm:2:@fm:250)
Stat=Set_Printer("ENDTABLE")
Stat=Set_Printer("ADDTABLE", ColWidth4,"", Table3, RGB(228, 228, 228), RGB(228, 228, 228), "", 7)
Stat=Set_Printer("ADDTABLE", ColWidth5,"", Table4, RGB(228, 228, 228), RGB(228, 228, 228), "", 7)
Stat=Set_Printer("TERM", 1)
All the variables have been assigned data and works before enhancements. Using this code causes the report to be completely black and the blank rows to disappear. The enhancements should only affect the "MyData" table.
Thanks for any help,
Marty