主页 / coding / 问题 / 79296251
Accepted
showkey
Asked: 2024-12-20 13:15:01 +0800 CST

如何使用 VBA 代码将所有部分列导出为 pdf 文件？

  • 772

sample.xlsx请从我的 dropbox下载。https
://www.dropbox.com/scl/fi/dm7okj2j5l2onlq2lmd6m/sample.xlsx ?rlkey=obm03i1ysexnajay1zzv2jddy&st=tan1kkj1&dl=0

它包含简单数据。 我想使用 VBA 代码将所有列导出到：
在此处输入图片描述
sample.xlsxsample.xlsx

Sub pdf()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim saveLocation As String
    templePath = "d:\sample.xlsx"
    Set wb = Workbooks.Open(templePath)
    Set ws = wb.Sheets(1)
    With ws.PageSetup
        .Orientation = xlLandscape
    End With
    saveLocation = "d:\sample.pdf"
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation
    wb.Close SaveChanges:=False
    Set wb = Nothing
    Set ws = Nothing 
End Sub

该设置.Orientation = xlLandscape无法使所有列都保存sample.pdf。

在此处输入图片描述

如何使用 VBA 代码将所有部分列导出为 pdf 文件？

在此处输入图片描述
在此处输入图片描述

excel

1 个回答

  1. Best Answer

    您的脚本已几乎完成；剩下要做的就是重置工作表的打印区域设置。

    请在模式下检查打印区域Page Break Preview。

    在此处输入图片描述

    Sub pdf()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim saveLocation As String
    Application.ScreenUpdating = False
    Dim templePath As String: templePath = "d:\sample.xlsx"
    Set wb = Workbooks.Open(templePath)
    Set ws = wb.Sheets(1)
    Application.PrintCommunication = False
    With ws.PageSetup
        .PrintArea = "" ' reset print area setting
        .FitToPagesWide = 1 ' fit all columns to a page
        .Orientation = xlLandscape
    End With
    Application.PrintCommunication = True
    saveLocation = "d:\sample.pdf"
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation
    wb.Close SaveChanges:=False
    Set wb = Nothing
    Set ws = Nothing
    Application.ScreenUpdating = True
End Sub
    • 2

相关问题