UiPath Invoke VBA活动中FitToPagesWide设置不生效求助

你在UiPath Studio的Invoke VBA活动中执行VBA代码导出Excel为PDF时，.FitToPagesWide = 1的缩放设置不生效，但直接在Excel中运行该宏却能得到正确结果，PDF导出功能本身正常。

可能的解决方法 #

1. 显式禁用Zoom属性并恢复PrintCommunication #

FitToPagesWide生效的前提是PageSetup的Zoom属性为False，同时在UiPath环境中，关闭PrintCommunication后需重新开启，确保设置被提交：

修改后的VBA代码：

Sub SetSheetSize()
    Application.PrintCommunication = False
    For Each ws In ActiveWorkbook.Worksheets
        With ws.PageSetup
            .Zoom = False ' 必须先禁用缩放，FitToPagesWide才会生效
            .FitToPagesWide = 1
            .FitToPagesTall = False
        End With
        ws.Calculate ' 刷新工作表内容，确保页面设置基于最新数据
    Next
    Application.PrintCommunication = True ' 恢复打印通信，提交设置
    DoEvents ' 让Excel完成页面设置的处理
    
    Dim saveLocation As String
    saveLocation = "C:\Users\Documents\test.pdf"

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=saveLocation
End Sub

2. 确保Excel实例可见 #

UiPath的Excel Application Scope默认可能以后台（不可见）模式运行，部分Excel页面设置在后台模式下无法正确应用。尝试将Excel Application Scope的Visible属性设置为True，再测试代码是否生效。

3. 显式指定工作簿对象 #

避免依赖ActiveWorkbook，如果是UiPath打开的工作簿，可在VBA中直接引用ThisWorkbook（确保代码嵌入目标工作簿），或者在UiPath中通过Get Workbook活动获取工作簿对象，传递给Invoke VBA活动使用。

4. 强制应用页面设置 #

对每个工作表添加打印区域设置，确保页面设置基于实际内容：
在循环内添加：

ws.PageSetup.PrintArea = ws.UsedRange.Address

内容的提问来源于stack exchange，提问作者Jacknife