Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Печать объединенной ячейки, При печати текст дублируется на вторую страницу
 
Есть объединенная ячейка. У нее при заполнении автоматически увеличивается размер в высоту, тем самым всегда виден весь набранный текст. Проблема: когда идет печать двух листов, на одном расположена эта объединенная ячейка, на другом другая информация (просто текст) то на печати вылезает следующая картина: текст из объединенной ячейки печатается на втором листе тоже. Помогите разобраться с проблемой. Сразу скажу код автоматического увеличения размера объединенной ячейки писал не я, не могу разобрать что там к чему.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MergeWidth As Single
Dim cM As Range
Dim AutoFitRng As Range
Dim CWidth As Double
Dim NewRowHt As Double
Dim str01 As String
str01 = "B14"
  If Not Intersect(Target, Range(str01)) Is Nothing Then
    Application.ScreenUpdating = False
    On Error Resume Next
    Set AutoFitRng = Range(Range(str01).MergeArea.Address)
    With AutoFitRng
      .MergeCells = False
      CWidth = .Cells(1).ColumnWidth
      MergeWidth = 0
      For Each cM In AutoFitRng
          cM.WrapText = True
          MergeWidth = cM.ColumnWidth + MergeWidth
      Next
      MergeWidth = MergeWidth + AutoFitRng.Cells.Count * 0.66
      .Cells(1).ColumnWidth = MergeWidth
      .EntireRow.AutoFit
      NewRowHt = .RowHeight
      .Cells(1).ColumnWidth = CWidth
      .MergeCells = True
      .RowHeight = NewRowHt
    End With
    Application.ScreenUpdating = True
  End If
End Sub
 
Изменено: mukhametov - 3 Мар 2017 08:39:42
Страницы: 1
Читают тему (гостей: 1)
Наверх