Private Sub Report_Open(Cancel As Integer)

Dim i As Integer, countfld As Integer
Dim rs As dao.Recordset
Dim w As Integer, w_1 As Integer, h As Integer
Dim j As Long
Dim hHead As Integer, hCol As Integer, k As Integer
Const MaxCountFld As Integer =  65 

Const kd As Integer =  25 
Const k_1 As Integer =  12 
Const kh As Integer =  25 

    Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)
    countfld = rs.Fields.Count
    If rs.Fields.Count > MaxCountFld Then countfld = MaxCountFld
    j =  0 
    For i =  1  To MaxCountFld
  
        If i <= countfld Then
            Me("Head" & i).ControlSource = "='" & rs.Fields(i -  1 ).Name & "'"
            Me("Col" & i).ControlSource = rs.Fields(i -  1 ).Name
            h = Me("Head" & i).FontSize * kh
            If i =  1  Then k = k_1 Else k = kd
            w = Len(rs.Fields(i -  1 ).Name) * Me("Col" & i).FontSize * k
            w_1 = Len(rs.Fields(i -  1 ).Name) * Me("Head" & i).FontSize * k
            If w_1 > w Then w = w_1
            Me("Head" & i).Width = w
            Me("Col" & i).Width = w
            Me("Head" & i).Height = h
            Me("Col" & i).Height = h
            Me("Head" & i).Left = j
            Me("Col" & i).Left = j
            Me("Head" & i).Top =  0 
            Me("Col" & i).Top =  0 
            j = j + w
          Else
            Me("Head" & i).Visible = False
            Me("Col" & i).Visible = False
        End If
    Next i
    rs.Close
    Set rs = Nothing
    
    Me.Printer.DefaultSize = False
    Me.Printer.ItemSizeWidth = Me("Col" & countfld).Left + Me("Col" & countfld).Width
    rptKol.Height = h
    rptDate.Height = h
    rptLab.Caption = Me.Report.Name
    DoCmd.Maximize
    
End Sub

If i =  1  Or i =  2  Then k = k_1 Else: k = kd

Forms!ВашаФорма.SetFocus
Docmd.Restore