我正在使用宏将活动工作表另存为具有特殊名称的PDF文件。
我创建的宏会运行，但会将每个工作表保存在多个PDF中，并将工作表的名称放在文件名的末尾。

Sub PrintPDF() 
    Dim wksSheet As Worksheet 
    Dim strFile As String 

    Set wksSheet = ActiveSheet 
    'strFile = Format(Now(), "yyyymm") _
                & ".pdf" 

    strFile = "blabla" _ 
                & "_" _ 
                & Format(Now(), "yyyymm") _ 
                & "_" _ 
                & "name2" _ 
                & " " _ 
                & Replace(Replace(wksSheet.Cells(1, 2).Value, " ", ""), ".", "_") _ 
                & ".pdf" 

    strFile = ThisWorkbook.Path & ":" & strFile 

    wksSheet.SaveAs Filename:=strFile, FileFormat:=xlPDF 
End Sub