Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Печать определенной страницы листа с проверкой. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать определенной страницы листа с проверкой. (Макросы/Sub)
Печать определенной страницы листа с проверкой.
Amator Дата: Понедельник, 10.06.2019, 12:04 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте. Нужна Ваша помощь.На листе "ЗВ" есть данные. Сначяла скрываем строки (кнопка ФИЛЬТР) , потом выводим на печать страницу - 2. Необходимо перед печатью страницы-2 выполнить проверку первой заполненной ячейки столбца "S" на этой странице .И если значение <"0" - выход из кода, а если значение >"0" - тогда печать. Заранее спасибо.
К сообщению приложен файл: 111.xlsb(44.8 Kb)
 
Ответить
СообщениеЗдравствуйте. Нужна Ваша помощь.На листе "ЗВ" есть данные. Сначяла скрываем строки (кнопка ФИЛЬТР) , потом выводим на печать страницу - 2. Необходимо перед печатью страницы-2 выполнить проверку первой заполненной ячейки столбца "S" на этой странице .И если значение <"0" - выход из кода, а если значение >"0" - тогда печать. Заранее спасибо.

Автор - Amator
Дата добавления - 10.06.2019 в 12:04
_Boroda_ Дата: Понедельник, 10.06.2019, 12:27 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15576
Репутация: 6077 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
If Sheets("ЗВ").Cells(Sheets("ЗВ").HPageBreaks(1).Location.Row, "S") < 0 Then Exit Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
If Sheets("ЗВ").Cells(Sheets("ЗВ").HPageBreaks(1).Location.Row, "S") < 0 Then Exit Sub
[/vba]

Автор - _Boroda_
Дата добавления - 10.06.2019 в 12:27
Amator Дата: Понедельник, 10.06.2019, 14:56 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
_Boroda_, спасибо. И еще вопрос. Как связать проверку той страницы , которая задана в "TextBox2" и потом она же будет выводится на печать .Тоесть , если в "TextBox2" число 3, то проверяем первую заполненную ячейку на странице 3 и печатаем тоже страницу 3.
К сообщению приложен файл: 112.xlsb(44.8 Kb)
 
Ответить
Сообщение_Boroda_, спасибо. И еще вопрос. Как связать проверку той страницы , которая задана в "TextBox2" и потом она же будет выводится на печать .Тоесть , если в "TextBox2" число 3, то проверяем первую заполненную ячейку на странице 3 и печатаем тоже страницу 3.

Автор - Amator
Дата добавления - 10.06.2019 в 14:56
_Boroda_ Дата: Понедельник, 10.06.2019, 15:02 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15576
Репутация: 6077 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
HPageBreaks(1)

это первый разрыв страницы, то есть страница 2. (2) - второй разрыв, страница 3, ...


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
HPageBreaks(1)

это первый разрыв страницы, то есть страница 2. (2) - второй разрыв, страница 3, ...

Автор - _Boroda_
Дата добавления - 10.06.2019 в 15:02
Amator Дата: Понедельник, 10.06.2019, 15:11 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
_Boroda_, тогда мне надо брать номер разрыва из TextBox2 и уменшить на единицу
[vba]
Код
If Sheets("ЗВ").Cells(Sheets("ЗВ").HPageBreaks(TextBox2.Value - 1).Location.Row, "S") < 0 Then Exit Sub
[/vba]
но это не работает.
 
Ответить
Сообщение_Boroda_, тогда мне надо брать номер разрыва из TextBox2 и уменшить на единицу
[vba]
Код
If Sheets("ЗВ").Cells(Sheets("ЗВ").HPageBreaks(TextBox2.Value - 1).Location.Row, "S") < 0 Then Exit Sub
[/vba]
но это не работает.

Автор - Amator
Дата добавления - 10.06.2019 в 15:11
_Boroda_ Дата: Понедельник, 10.06.2019, 15:16 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15576
Репутация: 6077 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Возможно и не работает, я не знаю. Зависит от того, где Вы эту строку написали.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВозможно и не работает, я не знаю. Зависит от того, где Вы эту строку написали.

Автор - _Boroda_
Дата добавления - 10.06.2019 в 15:16
Amator Дата: Понедельник, 10.06.2019, 15:46 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
_Boroda_, спасибо Вам за помощь.
 
Ответить
Сообщение_Boroda_, спасибо Вам за помощь.

Автор - Amator
Дата добавления - 10.06.2019 в 15:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать определенной страницы листа с проверкой. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!