VBA 将n个工作表打印到一张PDF

小当家

现有一个料单，我想把工作表“料单1”-“料单n”打印到一张PDF上，编写代码运行，后面几张都没有问题，就是第一张，打印出来的只有选中的单元格，请大佬们帮忙看看解决一下呗。附件已上传。
Sub PDF()
Dim a As Integer, wb As Workbook, text As String
Set wb = ActiveWorkbook
For a = 1 To wb.Sheets.Count
  If wb.Sheets(a).Name Like "料单#" Then
   wb.Sheets(a).Select Replace:=False
  End If
Next a
text = Split(ActiveWorkbook.Name, ".")(0)
ActiveSheet.PageSetup.FitToPagesTall = 1
ActiveSheet.PageSetup.FitToPagesWide = 1
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "/" & text & ".pdf"
End Sub

小当家

没有人知道吗

sowin888

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "/" & text & ".pdf"