Excel 缩小字体大小

我正在运行一个VBA代码来保存工作表的pdf副本，但是当这个VBA运行时，它会导致pdf中某些（不是所有）单元格中的字体变得非常小

我不明白为什么会这样

我附上了一张pdf文件的图片来显示发生了什么

这是我正在运行的VBA的结尾

---

尝试添加

Application.PrintCommunication = False

在你的代码之前，那么

Application.PrintCommunication = True

---

在

之后，我将问题标识为一个组合框，继续提示从下拉列表中选择一个选项。我用GotFocus（）替换Change（）解决了这个问题

---

无法复制。我确信这段代码中没有任何东西导致这种行为。也许工作簿或工作表本身有一些格式/设置等（尽管我不知道从哪里开始查找），您可以修改。您能否在其他工作表和其他工作簿中重现相同的问题？你能在另一台计算机上重现这个问题吗？

Application.PrintCommunication = True

Private Sub ComboBox1_GotFocus()

    ComboBox1.ListFillRange = "JobList"

    Me.ComboBox1.DropDown

End Sub