Добрый день! Подскажите пожалуйста - файл расположен на сетевом диске - необходим макрос, при выполнении которого область печать сохраняется в формате пдф, в определенную директорию с именем из ячейки а17.
Вот такой код - пишет ошибку 1004:
Макрос
Sub макр()
'
' макр Макрос
'
'
Dim a
a = Sheets("Счет").[a17].Value
ChDir "\\Asu11-pc\e\Счета за проживание гостям"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Asu11-pc\e\Счета за проживание гостям\" & a & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Помогите. Спасибо.
Макрос
Sub макрос()
Dim FileName As String
' Запись в переменную имени файла без расширения.
FileName = Sheets("Счет").[a17].Value
' Печать в pdf области печати.
Range(ActiveSheet.PageSetup.PrintArea).ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"\\Asu11-pc\e\Счета за проживание гостям\" & FileName & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub