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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Печать определенной страницы листа с проверкой. (Макросы/Sub)
Печать определенной страницы листа с проверкой.
Amator Дата: Понедельник, 10.06.2019, 12:04 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 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
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 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
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата _Boroda_, 10.06.2019 в 12:27, в сообщении № 2 ()
HPageBreaks(1)

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

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

это первый разрыв страницы, то есть страница 2. (2) - второй разрыв, страница 3, ...
Автор - _Boroda_
Дата добавления - 10.06.2019 в 15:02
Amator Дата: Понедельник, 10.06.2019, 15:11 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 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
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 107
Репутация: 0 ±
Замечаний: 0% ±

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

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