VBA收缩字体大小

Question

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

我无法弄清楚为什么会这样。

我附上了pdf档案的图片，以显示正在发生的事情。

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

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:=FilePath & DocName & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Answer 1

我将问题确定为一个组合框，继续提示从下拉列表中选择一个选项。我通过用GotFocus（）

替换Change（）来解决这个问题

Private Sub ComboBox1_GotFocus()

    ComboBox1.ListFillRange = "JobList"

    Me.ComboBox1.DropDown

End Sub

Answer 2

尝试添加

Application.PrintCommunication = False

在您的代码之前

，然后

Application.PrintCommunication = True

后