Private Sub Кнопка29_Click()
Dim frm As Form
Dim rep As Report
    Dim ctlLabel As Label
    Dim ctlText As TextBox
    Dim intLabelX As Variant, intLabelY As Variant
    Dim intLabelX1_1 As Variant, intLabelY1_1 As Variant
    Dim intLabelX1_2 As Variant, intLabelY1_2 As Variant
    Dim intLabelZ As Variant
    Dim i As Integer

    
    DoCmd.DeleteObject acReport,  "ОтчПост1" 
    DoCmd.CopyObject ,  "ОтчПост1" , acReport,  "ОтчПост_Шаблон" 
        
    DoCmd.OpenReport  "ОтчПост1" , acDesign
    
    Set rep = Reports![ОтчПост1]

    intLabelX1_2 =  2800 
    
    For i =  6  To  30 
     Set ctlLabel = CreateReportControl(rep.Name, acLabel, acHeader, , , intLabelX1_2, _
                                   1000 ,  1000 ,  600 )
     Set ctlText = CreateReportControl(rep.Name, acTextBox, acDetail, , , intLabelX1_2, _
                                  0 ,  1000 ,  300 )
     intLabelX1_2 = intLabelX1_2 +  1000 
     
    Next
    
    DoCmd.Save acReport,  "ОтчПост1" 
    DoCmd.Close acReport,  "ОтчПост1" , acSavePrompt
    DoCmd.OpenReport  "ОтчПост1" , acViewPreview
    
End Sub