Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Вставка разрывов страниц по условию
 
Здравствуйте, уважаемые!

Если можете, помогите, пожалуйста, с похожей задачей.

Есть стандартная накладная в которой есть шапка накладной, тело (таблица с товарами), а так же подписи.
При печати документа бывает так, что подпись (или ее часть) отрываются от основной части таблицы.
Параметры печати: вписать все столбцы на одном листе. Все поля по 0,8 см. Колонтитулы по 0 см.

Можно ли проверить находятся начало подписи и конец на одном листе и, если да, то проверить не оторвана ли подпись от основной таблицы? И в зависимости от сложности реализации или уменьшить на 1 выводимые на печать количество страниц или добавить разрыв перед последней строкой табличной части?

Визуально можно посмотреть в прилагаемом файле.
Изменено: Vitalio - 21.10.2020 13:35:13 (Добавил файл)
Параметры печати. Уменьшить значение "Разместить не более чем", если на последнем листе число строк меньше минимального
 
Доброго времени суток уважаемые форумчане.

При выводе на печать документа бывают моменты, когда на последний лист выводится информация, которую лучше не отрывать от основного тела документа (подпись и т.п.).

Возможно, вы знаете, как можно посчитать количество выводимых на печать строк на последней странице, и если оно меньше заданного нами (как константа), тогда количество текущих страниц на печать уменьшить на 1, то есть фактически при необходимости изменить значение размещения печати не более чем N страниц в высоту. Или привязаться к связке слов в документе, если так будет проще.

Конкретно в приложенном примере печать должна пойти на 1 лист (внутри макрос, которым задаю параметры печати на данный момент).
Удалить пустые строки, если подряд пустых 2 и более. Оставить одну пустую, В таблице определить идущие подряд 2 и больше пустые строки и удалить их, оставив только 1 пустую строку.
 
Пытливый, огромное вам искреннее спасибо! А так же всех, кто открыл, почитал, и постарался решить мою проблему.

Природа не обделила ленью, что заставляет часть некоторых процессов переводить в нажатие одной кнопки, но она же, лень, не позволяет копнуть глубже в изучение некоторых моментов. Рад, что есть люди, готовые помочь в некоторых вопросах :)
Удалить пустые строки, если подряд пустых 2 и более. Оставить одну пустую, В таблице определить идущие подряд 2 и больше пустые строки и удалить их, оставив только 1 пустую строку.
 
БМВ, не совсем понял ваше предложение. Не нашел код VBA в вашем файле.
Удалить пустые строки, если подряд пустых 2 и более. Оставить одну пустую, В таблице определить идущие подряд 2 и больше пустые строки и удалить их, оставив только 1 пустую строку.
 
Пытливый, Тут можно :)
Изменено: Vitalio - 22.04.2019 10:59:36
Удалить пустые строки, если подряд пустых 2 и более. Оставить одну пустую, В таблице определить идущие подряд 2 и больше пустые строки и удалить их, оставив только 1 пустую строку.
 
Всем доброго времени.

Порылся (а может слабо порылся) и нашел только удаление пустых строк: https://www.planetaexcel.ru/techniques/2/62/

Буду предельно благодарен, если кто-то сможет написать макрос под удаление пустых строк при условии, что пустых подряд 2-е и более. При этом удалить не все пустые строки в таком найденном диапазоне, а оставить одну пустую.
Замена содержимого ячейки с использованием пользовательского форматирования на текст, Заменить отображаемый текст в ячейке, полученный с помощью пользовательского форматирования на обычный текст
 
Спасибо большое!

Вариант, который написал Казанский, как раз то, что нужно.

skais675, вам так же большое спасибо, что уделили время. Файл выгружается из "чужой" 1С с уже определенной высотой строки, а ваш вариант высоту строки меняет.

Своими кривыми знаниями видоизменил и добавил возможность динамически указывать проблемный диапазон.

Код
Sub Vi() 
Dim c As Range, v, rngRng As Range  
Set rngRng = Application.InputBox("Выбери проблемный диапазон", "Диапазон", Type:=8)  
  For Each c In rngRng  
   v = WorksheetFunction.Text(c.Value, c.NumberFormat)  
   c.NumberFormat = "@"
   c.Value = v  
 Next 
End Sub

Изменено: Vitalio - 12.04.2019 18:07:01
Замена содержимого ячейки с использованием пользовательского форматирования на текст, Заменить отображаемый текст в ячейке, полученный с помощью пользовательского форматирования на обычный текст
 
Доброго времени суток.

Очень люблю этот сайт и много чего полезного тут нашел, но не смог побороть одну штуку. Может кто-то уже сталкивался или кому-то будет интересно.

Есть таблица с данными, где в саму ячейку вписаны, к примеру, данные вида "5555".
К ячейке применено пользовательское форматирование с текстом, к примеру "_Зеленый"
В итоге, по факту в ячейке 5555, отображается 5555_Зеленый.

Ширина столбца, где вписаны эти данные фиксированная и зачастую такой текст не помещается в ячейке и отображается как #############, хотя перенос данных включен.
Мною найден один лишь способ как решить проблему, но он долгий: скопировать данные из таких ячеек в блокнот, снова скопировать эти же данные, но уже из блокнота, применить текстовый формат в диапазону в екселе, разъединить ячейки, вставить данные, скопированные из блокнота, объединить ячейки по строкам.

Может кто знает как это сделать быстрее?
Буду премного благодарен!
Страницы: 1
Наверх