带水平分页符的excel VBA PDF打印分级

我有一份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

下一个ws

---

End Sub

你是说你有一个包含160张工作表的工作簿吗？或者一个工作簿中有一个工作表，一张工作表上有160组数据？

如何区分同一数据集页面之间的分页符和两个不同数据集之间的分页符？这是一个好问题。我不知道该怎么做。excel是否知道何时输入手动分页符与常规分页符？只要让PDF按分页符打印到多个PDF就好了。我可以使用adobe来合并。一个工作簿。一份工作表（表1）。第1页共160页。