У меня есть следующий код, чтобы попытаться экспортировать определенный выбор в виде одностраничного PDF. Мне удалось предоставить доступ, но я не могу экспортировать выбор в формате PDF. Я получаю ошибку 1004. Любой совет?
Sub PrintTest()
ChDir "/Users/Mr_Madoff/Desktop/"
Sheets("Sheet1").Range("A1:F53").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/Mr_Madoff/Desktop/Book1.pdf", Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub