如何将用户箱选择打印到单元格并打印pdf

Question

我有一个代码遍历列表框，将每个选择从用户窗体打印到特定的单元格，然后打印结果电子表格。现在，我希望代码将电子表格打印为pdf而不是硬拷贝，然后将其保存到桌面。如果所有创建的pdf文件都可以放在一个pdf文件中，那就更好了

我从事体育教练工作，并使用此代码一次打印出多个训练程序。如果可能，我希望将每个程序的电子副本保存在组合文件中，以便备案。我尝试将PDF代码代替打印的代码粘贴到脚本中，但是没有用。

Private Sub BTN_print_Click()
Dim vOrigVal As Variant
Dim ws As Worksheet
Dim i As Long

Set ws = ThisWorkbook.Worksheets("Gym Weekly Template") 'sheet to print name to


vOrigVal = ws.Range("C8").Value 'original identified cell value


With Me.ListBox2
For i = 0 To .ListCount - 1
    ws.Range("C8").Value = .List(i) 'cell to print names to

    ws.PrintOut
Next i      'loop until all names are printed
End With

ws.Range("C8").Value = vOrigVal 'returns cell to original value

我希望我需要做的就是将“ ws.PrintOut”更改为PDF代码，但是没有用。如果有人可以提供帮助，那就太好了。