Public Sub reportgen()
DoCmd.OpenReport  "kadr_analiz_period" , acViewDesign
Dim CC, Y, X, H, W, cname As String, cdata As String

H =  5 
W =  15 
X =  0 
Y =  0 

H = H *  56 . 7 
W = W *  56 . 7 
X = X *  56 . 7 
Y = Y *  56 . 7 

Dim ctlNew As Control
Dim rep As Report
Dim Sec As Section
Set rep = Reports( "kadr_analiz_period" )
Set Sec = rep.Section( 0 )
Dim Rst As New ADODB.Recordset
Rst.Open  "exec dbo.kadr_analiz_period " , CurrentProject.Connection, adOpenStatic, adLockReadOnly

Do Until Rst.EOF
cname =  "f"  & Rst( "razdel" ) & Rst( "prmname" )  ' Это будет имя контрола'
cdata =  "=getval("  "" & Rst(" razdel ") & "  "","  "" & Rst(" prmname ") & "  "" )"  ' Это будет источник данных '
Y = Y + H
If Y >  30000  Then Y =  0 : X = X + W
GoSub CC
Rst.MoveNext
Loop


Exit Sub
CC:
Set ctlNew = CreateReportControl(rep.name, acTextBox, acDetail, Sec.name, cdata, X, Y)
DoCmd.Restore
ctlNew.name = cname
Return
End Sub