Thanks anyway, I got the question answered on stackoverflow.com:
Dim boxInfo(X, Y) As Short
For i As Integer = 0 To X
boxInfo(i,0) = formula0
boxInfo(i,1) = formula1
.
.
.
boxInfo(i,Y) = formulaY
Next
None of this code is hitting the database, all it is doing is drawing boxes next to the text fields. I had to do it this way because the text fields are set to Can Grow. I'm sorry if I'm misunderstanding.
I'm drawing 10 boxes on the report and would like to know if I can use looping to create the code below to shorten it up:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim X1 As Single, Y1 As Single
Dim X2 As Single, Y2 As Single
Dim Color As Long...