Цитата |
---|
Sanja написал: С чего это вдруг 'недостаток'? По условию задачи этого не требовадось |
Я имела ввиду, что лучше сделать, чтобы можно было сохранять более одного раза без лишних действий)
Sub SafeAsPdf()
Dim arrSelSheets(), i As Long
Application.ScreenUpdating = False
ReDim arrSelSheets(1 To ActiveWindow.SelectedSheets.Count)
For i = 1 To UBound(arrSelSheets)
arrSelSheets(i) = ActiveWindow.SelectedSheets(i).Name
Next
Worksheets(Array("КП")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & "КП " & Format(Now, "YYYYMMDD") & " " & Format(Now, "hhmm") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Worksheets(arrSelSheets).Select
Application.ScreenUpdating = True
MsgBox "Урррааа!", vbInformation
End Sub