Нэнси знает, как отформатировать лист так, чтобы строки повторялись вверху каждой страницы распечатки. Однако она хочет, чтобы строки повторялись вверху каждой напечатанной страницы, кроме последней.

Прямого способа сделать это нет, но вы можете имитировать такую ​​печать, используя макрос для выполнения этой задачи. Все, что вам нужно сделать, это заставить макрос распечатать все, кроме вашей последней страницы, затем изменить настройку страницы, чтобы строки не повторялись, и, наконец, распечатать последнюю страницу распечатки. Следующий макрос предоставляет пример такого подхода.

Sub PrintWorksheet()

Dim lPages As Long     Dim sTemp As String

lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

With ActiveSheet.PageSetup         ActiveSheet.PrintOut From:=1, To:=lPages - 1         sTemp = .PrintTitleRows         .PrintTitleRows = ""

ActiveSheet.PrintOut From:=lPages, To:=lPages         .PrintTitleRows = sTemp     End With End Sub

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

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

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

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

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

link: / excelribbon-Repeating_Rows_on_a_Printout_Except_On_the_Last_Page [Повторяющиеся строки в распечатке, кроме последней страницы].