Совместное использование книги Excel с группой также означает использование разных принтеров, разных компьютеров и разных требований и ожиданий пользователей. Это особенно очевидно, когда дело доходит до печати рабочего листа. Очевидно, что у разных пользователей разные ПК и могут быть разные принтеры, поэтому результаты печати могут отличаться от одного пользователя к другому. Кроме того, разные пользователи могут изменять диапазоны печати в том, что создается на листе.

Если вы отвечаете за конкретный рабочий лист, вы можете каким-то образом защитить различные установленные вами настройки печати, чтобы они не были искажены другими пользователями. Возможно, самый простой способ сделать это — сохранить настройки печати в макросе, а затем запускать этот макрос каждый раз при закрытии книги. Таким образом, настройки могут быть возвращены к указанным вами «значениям по умолчанию», не беспокоясь о том, что пользователи все испортят.

Например, следующий макрос показывает, как можно установить все параметры печати для конкретного задания печати:

Sub Auto_Close()

With ActiveSheet.PageSetup         .LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(1)

.BottomMargin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

.PrintHeadings = False         .PrintGridlines = False         .PrintComments = xlPrintNoComments         .CenterHorizontally = False         .CenterVertically = False         .Orientation = xlPortrait         .Draft = False         .PaperSize = xlPaperLetter         .FirstPageNumber = xlAutomatic         .Order = xlDownThenOver         .BlackAndWhite = False         .Zoom = False         .FitToPagesWide = 1         .FitToPagesTall = 99         .PrintErrors = xlPrintErrorsDisplayed         .PrintArea = "MyPrintArea"

.PrintTitleRows = ""

.PrintTitleColumns = ""

End With End Sub

Чтобы макрос работал для ваших конкретных нужд, просто измените настройки в соответствии с вашими требованиями.

Конечно, когда кто-то другой открывает вашу книгу, макрос может быть отключен автоматически или они могут увидеть уведомление о том, что в нем есть макросы. Если они решат отключить макросы, ваш макрос с настройками по умолчанию не будет запускаться при закрытии книги. Решение, конечно же, заключается в том, чтобы открыть книгу, включить макросы, а затем закрыть книгу. Это запустит макрос, и ваши настройки снова будут восстановлены так, как вы хотите.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2993) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Protecting_Print_Settings [Защита настроек печати].