简体   繁体   中英

VBA shrinking Font Size

I am running a VBA code to save a pdf copy of a worksheet, but when this VBA runs it causes the font within some (not all) cells to become very very small in the pdf.

I cannot figure out why this is happening.

I've attached a picture of the pdf file to show what's happening.

Here is the end of the VBA that I'm running.


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

在此处输入图片说明

I identified the issue as a combobox that continued to prompt to select an option from the dropdown. I resolved this by replacing Change() with GotFocus()

Private Sub ComboBox1_GotFocus()

    ComboBox1.ListFillRange = "JobList"

    Me.ComboBox1.DropDown

End Sub

Try to add

Application.PrintCommunication = False

before your code, then

Application.PrintCommunication = True

after

The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM