1、利用excel的pdf输出功能即可。
2、 参考: Sub exportPdf(sheetName As String, ByVal pname As String) Dim pdfPath As String pdfPath = ThisWorkbook。