Цитата |
---|
Sanja написал: Код ? 1ActiveSheet.ExportAsFixedFormat Filename:=Cells(1, .Value, Type:=xlTypePDFсохраняет Ваш инвойс в формате PDF в той же папке, что и сам файл |
Sanja, Чтобы не создавать новую тему, спрошу в этой.
Имеется макрос, чтобы страница сохранялась на диске D и с названием из ячейки. Как сделать, чтобы pdf сохранялся в той же папке, что и файл и добавить еще текст после имени файла?
Код |
---|
Sub CommandButton1_Click()
ActiveSheet.ExportAsFixedFormat Filename:="D:\" & Range("H81").Value, Type:=xlTypePDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
|