Question

我有一个160页的工作表。一组数据可以有3页，然后是水平分页符。我试图弄清楚如何在每个水平分页符后创建一个单独的PDF，并将其命名为该分页符的单元格A（它的名称相同）中的字符串。

这是我在导出到pdf的地方，缺少上述内容。

Sub Print_PDF()
Dim Awb As Workbook
Dim Snr As Integer
Dim ws As Worksheet
Set Awb = ActiveWorkbook


For Each ws In Awb.Sheets
    If ws.Visible = xlSheetVisible Then

    'Sheets(ws.Name).Copy
    Awb.Sheets(ws.Name).Copy
    'Sheets(ws.Name).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
    Awb.Path & "\" & Awb.Sheets(ws.Name).Name & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False

    ActiveWindow.Close False
End If

下一步

End Sub

Answer 1

你是说你有一本包含160个工作表的工作簿？或者是一张包含1个工作表的工作簿，在一张纸上有160组数据？

excel VBA PDF打印与水平分页符打开

1 个答案: