打印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 & "\"