☰

打印时自动调整单元格内容

tag-icon • tag-icon microsoft-excel vba
打印时自动调整单元格内容

我创建了一个 Excel 应用程序，用户可以在其中输入每个问题的评论。

我设计了 excel 电子表格，合并单元格以捕获大量文本数据。我遇到的问题是，当注释超过三行时，当我需要打印 excel 文件时，它会裁剪单元格内容。

在此处输入图片描述

当输入的文本足够大时，如何动态增加单元格大小？

Private Sub Workbook_Open()

   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   ThisWorkbook.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

相关内容