如何包括要打印的工作表中包含的打印超链接

Question

我有一个工作表，其中包含一个用于打印此工作表的按钮。通过从下拉列表中进行选择，可以填充工作表中的数据。 该选择可以包含一个或多个超链接。单击打印按钮时，我希望能够打印包括超链接的工作表。 我有以下代码可以遍历超链接并打印工作表。单击打印按钮后，将调用此模块。

Sub PrintArea()

Dim ws As Worksheet
Dim hypLink As Hyperlink
Set ws = ThisWorkbook.Sheets("Formulier")

Set PArea = ws.Range("A1:K41")
ws.PageSetup.PrintArea = PArea.Address(0, 0)

If ws.Hyperlinks.Count > 0 Then
For Each hypLink In ws.Hyperlinks
If hypLink.Type = 0 Then
    Debug.Print hypLink.Range.Address & vbTab & hypLink.SubAddress
Else
    Debug.Print hypLink.Shape.Name & vbTab & vbTab & hypLink.Address
End If
Next hypLink

End If

ws.PrintOut

End Sub

我有点被这个问题困扰，似乎无法解决。 我希望有人能帮助我修复我的代码，以便它可以打印工作表中包含的所有包含超链接。 谢谢您的时间和帮助。