Dr.K
07-12-2010, 06:54 AM
My current code feels a little awkward.... I need to put three funds per page into a report. Is there a simpler way to do this?
'calculate pages
If intFunds < 4 Then
'One page
intPages = 1
Else
' Multiple Pages
If (intFunds Mod 3) = 0 Then
intPages = Int(intFunds / 3)
Else
intPages = Int(intFunds / 3) + 1
End If
End If
'calculate pages
If intFunds < 4 Then
'One page
intPages = 1
Else
' Multiple Pages
If (intFunds Mod 3) = 0 Then
intPages = Int(intFunds / 3)
Else
intPages = Int(intFunds / 3) + 1
End If
End If