Разрыв страницы - Microsoft Office Excel

vefer · 05.12.2012, 10:24

Подскажите пожалуйста, как узнать на какой строке текущий разрыв страницы? Суть в том, что надо проверить на какой строке разрыв страницы, и если на четной, то переместить разрыв на строку вверх.

kuklp · 05.12.2012, 10:43

Что значит текущий? Вот для первого:

Код:

Sub www()
    ActiveWindow.View = xlPageBreakPreview
    If ActiveSheet.HPageBreaks(1).Location.Row Mod 2 = 1 Then _
    Set ActiveSheet.HPageBreaks(1).Location = ActiveSheet.HPageBreaks(1).Location.Offset(-1)
    ActiveWindow.View = xlNormalView
End Sub

vefer · 05.12.2012, 10:52

Спасибо, я Location.Row хотел узнать

05.12.2012, 10:24	#1
vefer Форумчанин Регистрация: 11.10.2010 Сообщений: 134	Разрыв страницы Подскажите пожалуйста, как узнать на какой строке текущий разрыв страницы? Суть в том, что надо проверить на какой строке разрыв страницы, и если на четной, то переместить разрыв на строку вверх.

05.12.2012, 10:43	#2
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Что значит текущий? Вот для первого: Код: `Sub www() ActiveWindow.View = xlPageBreakPreview If ActiveSheet.HPageBreaks(1).Location.Row Mod 2 = 1 Then _ Set ActiveSheet.HPageBreaks(1).Location = ActiveSheet.HPageBreaks(1).Location.Offset(-1) ActiveWindow.View = xlNormalView End Sub` mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Разрыв страницы	Foxx	Microsoft Office Word	2	20.02.2012 21:04
Разрыв	Жан-Батист Гренуй	Microsoft Office Access	0	09.11.2011 05:36
Призрачный разрыв страницы	KOHCEPBATOP	Microsoft Office Excel	0	14.10.2010 11:12
Вставить разрыв страницы	alexvav	Microsoft Office Excel	2	14.09.2010 14:51
Как сделать разрыв страницы печати по условию и узнать номер страницы	Leanna	Microsoft Office Excel	2	21.01.2008 06:59

05.12.2012, 10:52	#3
vefer Форумчанин Регистрация: 11.10.2010 Сообщений: 134	Спасибо, я Location.Row хотел узнать