При сохранении данных на листах Excel рекомендуется задавать области печати. В противном случае мы столкнемся с огромной задачей корректировки позиций столбцов. Используя макрос Excel, вы можете легко установить области печати для всех ваших рабочих листов. Давайте узнаем об этом в этой статье.
Скачать сейчас
Если вы хотите сtart использовать программное обеспечение как можно скорее, то вы можете:
Загрузите программное обеспечение сейчас
В противном случае, если вы хотите сделать своими руками, вы можете прочитать содержимое ниже.
Печать в Excel — не ракетостроение
Многие люди разочаровываются, печатая свои таблицы Excel, особенно если их таблицы слишком широкие или слишком высокие, чтобы поместиться на одной странице. Если вы уже знаете, что документ Excel будет напечатан, рекомендуется спроектировать электронные таблицы Excel, прежде чем добавлять в них содержимое. Используя параметр «Масштабирование», вы можете создать свой лист Excel и проверить, как вы хотите, чтобы он был напечатан. Разрывы страниц всегда делают листы Excel удобными для печати.
Давайте подготовим графический интерфейс
Скрипт можно скопировать в новый модуль любой книги Excel, для которой необходимо задать область печати. Однако, чтобы сэкономить время и силы, вы можете скопировать сценарий в новую книгу с поддержкой макросов. Удалите ненужные листы из этой книги и сохраните один лист, который можно переименовать в «GUI». Как показано на рисунке, создайте кнопку, позволяющую пользователю просматривать и выбирать книгу Excel.
Давайте сделаем его функциональным
Скопировав скрипт в новый модуль, прикрепите скрипт «P_fpick» к кнопке «Обзор» и скрипт «DrawPrintArea» следует прикрепить к кнопке «Установить область печати».
Как это работает?
Процедура «P_fpick» позволит пользователю просмотреть и выбрать файл Excel. Скрипт «DrawPrintArea» прочитает путь к файлу с листа «GUI» и откроет его. Для каждого рабочего листа в открытой книге сценарий определяет используемый диапазон, а затем устанавливает область печати.
Sub DrawPrintArea() Dim v1 As Workbook Dim ab As Workbook Set ab = ThisWorkbook Dim v2 As Worksheet Dim lastRow As Long Set v1 = Workbooks.Open(Range("D6").Value) For Each v2 In v1.Worksheets v2.PageSetup. ПринtArea = v2.UsedRange.Address Next v1.Close True ab.Activate End Sub Sub P_fpick() Dim v_fd As Office.FileDialog Установить v_fd = Application.FileDialog(msoFileDialogFilePicker) With v_fd .AllowMultiSelect = False .Title = "Выберите Excel workbook" .Filters.Clear .Filters.Add "Excel", "*.xls*" If .Show = True Then Range("D6").Value = .SelectedItems(1) End If End With End Sub
Настройте это
На данный момент скрипт читает и обрабатывает одну книгу. Вы можете изменить графический интерфейс, чтобы позволить пользователю отображать несколько книг. В качестве альтернативного метода вы также можете разрешить пользователю просматривать и выбирать папку вместо книги Excel. Макрос необходимо настроить соответствующим образом, чтобы читать все книги Excel в выбранной папке и подпапке. Если сценарий не может установить область печати, высока вероятность того, что лист может быть поврежден и Восстановление Excel является единственным решением.
Об авторе:
Ник Випонд — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправление слов и программные продукты для восстановления Outlook. Для получения дополнительной информации посетите www.datanumen.com.
Оставьте комментарий