vba打印excel表格，并指定pdf名称

在VBA (Visual Basic for Applications) 中，你可以使用Microsoft Office的ComObject技术来创建Excel工作簿并将其转换为PDF文件。以下是一个简单的例子，演示如何打印Excel工作表并设置PDF文件的名称：

Sub PrintToPDF()
    ' 导入必要的模块
    Dim ExcelApp As Object
    Dim WorkBook As Object
    Dim Worksheet As Object
    Dim PDFWriter As Object
    Dim PDFName As String

    ' 设置PDF名称
    PDFName = "MySheet.pdf" ' 更改为你想要的PDF文件名
    
    ' 创建Excel应用程序实例
    Set ExcelApp = CreateObject("Excel.Application")
    
    ' 打开或新建工作簿
    Set WorkBook = ExcelApp.Workbooks.Add
    Set Worksheet = WorkBook.Sheets(1) ' 假设你打印的是第一个工作表
    
    ' 打印工作表
    Worksheet.PrintOut
    
    ' 将工作簿保存为PDF
    Set PDFWriter = CreateObject("ACROEXCH.App") ' 这里使用了Adobe Acrobat的COM接口
    PDFWriter.CreatePDF Filename:=PDFName, ActiveDocument:=Worksheet
    
    ' 关闭资源
    WorkBook.Close SaveChanges:=False
    ExcelApp.Quit
End Sub