Excel VBA ExportAsFixedFormat不打印页边距

Excel VBA ExportAsFixedFormat是一个用于将Excel文件导出为固定格式的方法。它可以将Excel文件以PDF或XPS格式保存到指定的路径。

在使用ExportAsFixedFormat方法时，可以通过设置PageSetup属性来控制打印页边距。PageSetup对象包含了与打印相关的属性，包括页边距、纸张大小、打印方向等。

要设置打印页边距，可以使用PageSetup对象的LeftMargin、RightMargin、TopMargin和BottomMargin属性。这些属性表示左、右、上、下的页边距值，单位为磅（1英寸=72磅）。可以根据需要调整这些属性的值来设置合适的页边距。

以下是一个示例代码，演示如何使用ExportAsFixedFormat方法导出Excel文件并设置打印页边距：

Sub ExportExcelToPDF()
    Dim filePath As String
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置导出路径
    filePath = "C:\path\to\output.pdf"
    
    ' 设置工作表和导出范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:D10")
    
    ' 设置打印页边距
    With ws.PageSetup
        .LeftMargin = Application.InchesToPoints(0.5) ' 左边距0.5英寸
        .RightMargin = Application.InchesToPoints(0.5) ' 右边距0.5英寸
        .TopMargin = Application.InchesToPoints(0.5) ' 上边距0.5英寸
        .BottomMargin = Application.InchesToPoints(0.5) ' 下边距0.5英寸
    End With
    
    ' 导出为PDF
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    ' 清除设置
    With ws.PageSetup
        .LeftMargin = Application.InchesToPoints(0.75) ' 默认左边距
        .RightMargin = Application.InchesToPoints(0.75) ' 默认右边距
        .TopMargin = Application.InchesToPoints(1) ' 默认上边距
        .BottomMargin = Application.InchesToPoints(1) ' 默认下边距
    End With
End Sub

在上述示例代码中，首先设置了导出路径、工作表和导出范围。然后使用With语句设置了打印页边距，这里将左、右、上、下的页边距都设置为0.5英寸。接下来使用ExportAsFixedFormat方法将工作表导出为PDF文件，并指定了导出的文件路径。最后，清除了打印页边距的设置，恢复为默认值。

这是一个简单的示例，你可以根据实际需求调整页边距的数值和其他打印设置。同时，腾讯云提供了云计算相关的产品，如云服务器、云数据库、云存储等，可以根据具体需求选择适合的产品。你可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于腾讯云的产品和服务。