excel - 将 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 & "\"