将工作表格保存为pdf

我试图保存一个工作表为PDF,我成功地做到这一点,但是当我打开生成的PDF文件在工作表中的所有文本框变形。

我怎样才能保持输出文本框的比例?

我在执行下面的代码的工作表中使用一个button:

ThisWorkbook.Sheets(1).Select Sheets(1).Activate ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="\\10.18.105.44\Setor Proteção RDs\01 - Ordens de Ajustes\Banco de ordens\AL" & alimentador & "\" & nome_arquivo & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True Sheets(1).Select Range("D2").Select 

我发现这只发生在我试图保存大于100%的工作簿缩放时,当我用100%的缩放打印它就像一个魅力。