将PDF与文件名一起打印到文件位置

Question

嘿伙计们我正在尝试创建一个打印pdf的宏。我有PDF创建我遇到的问题是文件路径位置以及根据工作表名称创建文件名。我相信我对文件路径的编码是关闭的。也许报价是错误的。最终这将是一个循环，但我会把它放在一次我得到文件位置的情况固定。

Sub PrintCoverSheets()
'
' PrintCoverSheets
'
'
fName = Replace(ActiveSheet.Name, " ", "")
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path "\"  & " fName" & " cover", xlQualityStandard, , , , , False
Selection.EntireColumn.Hidden = False

End Sub

Answer 1

取代：

ThisWorkbook.Path "\"

与

ThisWorkbook.Path & "\"