Debug.Print "===формат врейк====" & Break
'Me.Controls("КонецСтраницы").Top = Break
Me.Controls("Линия").Top = Break
Debug.Print "===Линия формат====" & Me.Controls("Линия").Top '''(дает верное значение 7416)
End Sub

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Debug.Print "==Линия вход принт==" & Me.Controls("Линия").Top ''(дает 12021 )

For i = 1 To 14
Debug.Print (Nz(Me.Controls("Name" & i).Value) & " ++ " & Nz(Me.Controls("Name" & i).Top))
   If Break = 0 And Nz(Me.Controls("Name" & i).Top) > 8000 Then Break = Me.Controls("Name" & i - 1).Top - 15: Debug.Print ("!!!" & Me.Controls("Name" & i - 1).Value)
Next i

....
Me.Controls("КС1").Visible = False
For i = 2 To 11
   Me.Controls("КС" & i).Visible = r(i)
Next i
End Sub

Private Sub ОластьДанных_Print(Cancel As Integer, PrintCount As Integer)

For i = 2 To 12
If Break = False And Nz(Me.Controls("Name" & i).Top) + Nz(Me.Controls("Name" & i).Height) > 14000 Then
Me.Controls("КС" & i - 1).Visible = True
Break = True
Else
Me.Controls("ÊÑ" & i - 1).Visible = False
End If
r(i - 1) = Me.Controls("ÊÑ" & i - 1).Visible
Next i

If j = 0 Then j = 1: Cancel = True

End Sub

Private Sub Связи_Click()
Dim tdf As TableDef

Set dbs = CurrentDb
For Each tdf In CurrentDb().TableDefs
  With tdf
   If Len(.Connect) > 0 Then
    .Connect = ";DATABASE=" & CurrentProject.Path & "\" & "XXX_be.mdb"
    .RefreshLink
   End If
  End With
Next
Set dbs = Nothing
End Sub

Private Sub ÎáëàñòüÄàííûõ_Print(Cancel As Integer, PrintCount As Integer)

For i = 2 To 12
Debug.Print (Nz(Me.Controls("Name" & i).Value) & " ++ " & (Nz(Me.Controls("Name" & i).Top) & " ++ " & Nz(Me.Controls("Name" & i).Height)))
If Break = False And Nz(Me.Controls("Name" & i).Top) + Nz(Me.Controls("Name" & i).Height) > 13000 Then
Me.Controls("КС" & i - 1).Visible = True
Break = True
Else
Me.Controls("КС" & i - 1).Visible = False
End If
r(i - 1) = Me.Controls("КС" & i - 1).Visible
Next i

If j = 0 Then j = 1: Cancel = True

End Sub

Private Sub Печать_Click()
Me.Dirty = False 'обновить таблицу
Break = False
j = 0
DoCmd.OpenReport "04Заключение", acPreview
DoCmd.Close acReport, "04Заключение"
DoCmd.OpenReport "04Заключение", acPreview
DoCmd.Maximize
End Sub

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)

If j = 0 Then
For i = 1 To 11
Me.Controls("KC" & i).Visible = False
Next i
End If

For i = 1 To 11
If Break = False And Nz(Me.Controls("Name" & i).Top) > 14520 Then
Me.Controls("KC" & i).Visible = True
Break = True
End If
r(i) = Me.Controls("KC" & i).Visible

Next i
If j = 0 Then j = 1: Cancel = True

End Sub