krosav4ig, Сохраняет весь файл, если применить код в рабочем файле то pdf на выходе тяжеловатый.
Не изменяя добавил только строку ActiveSheet.ExportAsFixedFormat 0, NewFileName
[vba]Код
Sub SaveActiveSheet4() 'Процедура сохранения
Dim NewFileName
On Error Resume Next
If ActiveSheet Is Nothing Then Exit Sub
NewFileName = GetNewFileName4
If Len(NewFileName) > 0 Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs NewFileName
ActiveWorkbook.Close False
ActiveSheet.ExportAsFixedFormat 0, NewFileName
End If
End Sub
[/vba]
Пока сохраняет, и сохраняет именно лист и файл pdf открывается корректно, завтра проверю на другой версии.
Благодарю!