Вывод таблицы на печать в Excel

@Вадим2006 · Регистрация: 07.06.2012

Студворк — интернет-сервис помощи студентам

Как можно сделать с помощью макроса, чтобы при выводе на печать две строки не отрывались и были на одном листе?

13.06.2012, 19:24

Может из этого что получится:
В листе я просто создал гдето строк 700, и в некоторых местах, объеденил ячеки в 1 столбце на месте разрыва листа. Эта процедура все расставила как положено.

Private Sub Проверка()
Dim R1 As Range, i As Integer
For i = 1 To ActiveSheet.HPageBreaks.Count
Set R1 = ActiveSheet.HPageBreaks(i).Location
R1.Rows(1).Select
If R1.Cells(1, 1).MergeArea.Rows.Count > 1 Then
ActiveWindow.SelectedSheets.HPageBreaks. Add Before:=Selection
End If
Next i
End Sub

@Gleb1 · 14.06.2012, 12:01

Мне удалось найти причину, по которой не работал Location. Этот оператор выполняется только в режиме разметки страницы, а, кроме того, в справке приведен некорректный пример на Location. Выявить ошибку удалось с помощью макрорекодера.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub aaa()
Dim I As Integer, HH As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        On Error Resume Next
        For I = 1 To .HPageBreaks.Count
            Set HH = .HPageBreaks(I).Location
            If Err = 0 Then
                Rows(HH.Row).Select
                If Selection.Rows.Count > 1 Then
                    ActiveWindow.View = xlPageBreakPreview
                    Set ActiveSheet.HPageBreaks(I).Location = Selection.Cells(1, 1)
                    ActiveWindow.View = xlNormalView
                    HH.Select
                End If
            End If
            Err = 0
        Next I
        On Error GoTo 0
    End With
    Application.ScreenUpdating = True
End Sub

@Gleb1 · 14.06.2012, 13:09

В выше приведенном макросе надо добавить точку:
.Rows(HH.Row).Select

@Вадим2006 · 14.06.2012, 16:13 **[ТС]**

спасибо за помощь, но все работают на какое то определённое количество строк, до 700 строк (20-25 листов) или на 10 листов, а более гибкого нет?

@Gleb1 · 14.06.2012, 17:25

Ваш вопрос не понятен. Представленные Вам макросы работают на активном листе.
Организуйте цикл по количеству листов в книге, делайте их активными и запускайте макрос для каждого листа. Макросы работают с любым количеством заполненных строк на листе.
А 700 строк просто взяты как пример.
Что Вы имеете в виду, говоря о более гибком варианте?

14.06.2012, 17:44

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

14.06.2012, 17:46

хех.. и к стати... я в примерах не вижу ограничений...

@Вадим2006 · 17.06.2012, 06:00 **[ТС]**

Спасибо за помощь
Будем разбираться

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Вадим2006 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 18

	Вывод таблицы на печать в Excel 11.06.2012, 07:49. Показов 14825. Ответов 27 Метки нет (Все метки) Как можно сделать с помощью макроса, чтобы при выводе на печать две строки не отрывались и были на одном листе? 0

@Gleb1 1 / 1 / 0 Регистрация: 19.05.2011 Сообщений: 80
	14.06.2012, 13:09
	В выше приведенном макросе надо добавить точку: .Rows(HH.Row).Select 0

@Вадим2006 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 18
	14.06.2012, 16:13 [ТС]
	спасибо за помощь, но все работают на какое то определённое количество строк, до 700 строк (20-25 листов) или на 10 листов, а более гибкого нет? 0

@Gleb1 1 / 1 / 0 Регистрация: 19.05.2011 Сообщений: 80
	14.06.2012, 17:25
	Ваш вопрос не понятен. Представленные Вам макросы работают на активном листе. Организуйте цикл по количеству листов в книге, делайте их активными и запускайте макрос для каждого листа. Макросы работают с любым количеством заполненных строк на листе. А 700 строк просто взяты как пример. Что Вы имеете в виду, говоря о более гибком варианте? 0

Сумрак
	14.06.2012, 17:44
	Вадим, хех... все варианты рабочие, для проверки... мы же не умеем читать мысли... Вам дан скелет, а дальше Вы сами... Решение задчи у Вас перед глазами.

Сумрак
	14.06.2012, 17:46
	хех.. и к стати... я в примерах не вижу ограничений...

@Вадим2006 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 18
	17.06.2012, 06:00 [ТС]
	Спасибо за помощь Будем разбираться 0