vba将excel表格打印为指定名称的

在VBA (Visual Basic for Applications) 中，你可以编写宏来实现Excel表格的自定义打印功能。以下是一个基本的步骤来创建一个名为 "PrintToPDF" 的宏，它会将当前选中的工作表打印并保存为指定名称的PDF文件：

Sub PrintToPDF()
    Dim ws As Worksheet ' 工作表对象
    Dim filename As String ' 定义要保存的文件名

    ' 获取选定的工作表
    Set ws = ActiveSheet
    
    ' 获取用户输入的文件名，这里假设是通过InputBox获取
    filename = InputBox("请输入要保存为的PDF文件名", "保存为PDF")

    ' 检查文件名是否为空，如果为空则提示错误
    If filename = "" Then
        MsgBox "文件名不能为空!", vbCritical
        Exit Sub
    End If
    
    ' 设置打印机设置，这里以默认打印机为例
    With ws.PageSetup.PrintArea
        .Top = 0
        .Left = 0
        .Bottom = ws.Rows.Count
        .Right = ws.Columns.Count
    End With
    
    ' 打印到特定的打印机，这里也可以设置为PDF
    ws.PrintOut Destination:=vbPrinterDefault, _   
                 OutputFormat:=xlTypePDF, _
                 Item:=xlItemSheets, _
                 Copies:=1, _
                 Collate:=False, _
                 Silent:=True, _
                 PromptOnCancel:=False, _
                 NoZoom:=False, _
                 PruneDocProperties:=False, _
                 CreateBook:=False, _
                 IgnorePrintAreas:=False, _
                 HeadersAndFooters:=xlNoHeadersAndFooters, _
                 CenterHorizontally:=True, _
                 CenterVertically:=True, _
                 ScaleWithPage:=True, _
                 RotateFlipType:=xlFlippedNone
    
    ' 将打印结果保存为PDF
    ws.ExportAsFixedFormat Filename:=filename & ".pdf", _
                            FilterName:=xlTypePDF, _
                            Range:=ws.UsedRange, _
                            Format:=xlExportFormatPDF
End Sub

当你运行这个宏时，会弹出一个对话框让你输入文件名，然后程序会将当前工作表以PDF形式打印并保存为指定的名称。