Всем доброго времени суток!
Прошу помощи. Есть вот такой макрос: (прошу прощения, что вставляю напрямую, "красиво" ещё не научился
)
Чтобы красиво - кнопка <...>
Всё работает отлично - сохраняет нужный лист из книги отдельной книгой на рабочем столе. Вопрос: как сделать, чтобы макрос сохранял не лист целиком, а только область печати?
Спасибо.
Прошу помощи. Есть вот такой макрос: (прошу прощения, что вставляю напрямую, "красиво" ещё не научился

Чтобы красиво - кнопка <...>
Код |
---|
Private Sub CommandButton24_Click() Dim FileN$ FileN = "C:\Users\qwerty\Desktop" & "\" & "YYYYY" & "_" & ThisWorkbook.Sheets("XXXXX").Range("B3") & "_" & Date & ".xlsx" ThisWorkbook.Sheets("YYYYY").Copy ActiveWorkbook.SaveCopyAs FileN ActiveWorkbook.Close SaveChanges:=False MsgBox "YYYYYсохранён на рабочем столе:" & vbCrLf & FileN End Sub |
Всё работает отлично - сохраняет нужный лист из книги отдельной книгой на рабочем столе. Вопрос: как сделать, чтобы макрос сохранял не лист целиком, а только область печати?
Спасибо.