...or you could try using some code similar to this
--------------------------------------------------------------------------------
Dim ctlLabel As Control
Set rp = CreateReport
rptName = rp.Name
boxWidth = 400
boxHeight = 500
For n = 1 To 20
For i = 1 To 32
ctlName = "posCtl" & i
Set ctlLabel = CreateReportControl(rptName, acLabel, , ctlName, "", boxWidth * i, n * boxHeight)
ctlLabel.Name = "n" & n - 1 & "d" & i - 2
ctlLabel.Width = boxWidth
ctlLabel.Height = boxHeight
ctlLabel.BackStyle = 1
Next
Next
' Restore report.
DoCmd.Restore