AutoAjuste do conteúdo da célula ao imprimir

Question

Eu criei um aplicativo do Excel onde os usuários inserem os comentários para cada pergunta.

Eu projetei a planilha do Excel de tal maneira que eu mesclei células para capturar grandes dados de texto. O problema que tenho encontrado é quando os comentários excedem mais de três linhas e quando eu preciso imprimir o arquivo do Excel, ele corta o conteúdo da célula.

Comoeuaumentodinamicamenteotamanhodacélulaquandootextodigitadoégrandeosuficiente.?

PrivateSubWorkbook_Open()Application.ScreenUpdating=FalseApplication.DisplayAlerts=FalseThisWorkbook.Sheets("Sheet1").Activate

   Application.PrintCommunication = False
    With Sheets("Sheet1").PageSetup
      .Zoom = False
      .FitToPagesWide = 1
      .FitToPagesTall = False
    End With
  Application.PrintCommunication = True
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True

End Sub