_Boroda_, в столбце L он просто считает сколько коробок продукта чтобы на каждую коробку напечатать этикетку. то-есть если 24 кг продукта а в коробку помещается 15 только он еще одну должен пустую выделить для печати. И это работает отлично но предел в 116 этикеток мне не объяснить не понимаю почему после 116 все ломается ?
_Boroda_, в столбце L он просто считает сколько коробок продукта чтобы на каждую коробку напечатать этикетку. то-есть если 24 кг продукта а в коробку помещается 15 только он еще одну должен пустую выделить для печати. И это работает отлично но предел в 116 этикеток мне не объяснить не понимаю почему после 116 все ломается ?koyaanisqatsi
Сообщение отредактировал koyaanisqatsi - Вторник, 11.09.2018, 11:09
pabchek, Я этот файл делал 2-3 года назад уже забыл. а как я их интересно делал руками что ли ? Мог и руками. ладно буду переделывать тогда шаблон поновой и менять все страницы. Спасибо. Незнаю сколько бы я еще мучался бы не понимая в чем дело.
pabchek, Я этот файл делал 2-3 года назад уже забыл. а как я их интересно делал руками что ли ? Мог и руками. ладно буду переделывать тогда шаблон поновой и менять все страницы. Спасибо. Незнаю сколько бы я еще мучался бы не понимая в чем дело.koyaanisqatsi
А кто Вам ставил разрывы страниц до 119-й страницы? Не сами ж они наставились?
Запустите на листе вот этот макрос [vba]
Код
Sub Макрос1() r1_ = Cells(Rows.Count, 1).End(3).Row r0_ = 2 n_ = 11 ActiveWindow.View = xlPageBreakPreview ActiveSheet.ResetAllPageBreaks ActiveSheet.PageSetup.PrintArea = "" For i = r0_ To r1_ Step n_ ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, 1) Next i ActiveWorkbook.Names.Add Name:="Область_печати", RefersToR1C1:= _ "=OFFSET(Банан!R1C1,(Банан!R2C6-1)*11+1,,11*Банан!R3C6,3)" End Sub
Никак. Посмотреть на первом листе - есть жирные линии, посмотреть внизу - нет жирных линий
А кто Вам ставил разрывы страниц до 119-й страницы? Не сами ж они наставились?
Запустите на листе вот этот макрос [vba]
Код
Sub Макрос1() r1_ = Cells(Rows.Count, 1).End(3).Row r0_ = 2 n_ = 11 ActiveWindow.View = xlPageBreakPreview ActiveSheet.ResetAllPageBreaks ActiveSheet.PageSetup.PrintArea = "" For i = r0_ To r1_ Step n_ ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, 1) Next i ActiveWorkbook.Names.Add Name:="Область_печати", RefersToR1C1:= _ "=OFFSET(Банан!R1C1,(Банан!R2C6-1)*11+1,,11*Банан!R3C6,3)" End Sub
Правда от всей души спасибо. У меня очень плохая память. А как вспомнить про разрывы ? я бы сам и не догадался. Уже несколько дней ломал голову над формулой. и ничего путного не приходило )))
Правда от всей души спасибо. У меня очень плохая память. А как вспомнить про разрывы ? я бы сам и не догадался. Уже несколько дней ломал голову над формулой. и ничего путного не приходило )))koyaanisqatsi
_Boroda_, да только что запустил. Моментом сделал 250стр. Я думал руками щас делать через повторение последней операции по F4. Очень Вам СПАСИБО! Да то что нет снизу разрыва я то сразу заметил. Но я забыл что это руками делалось думал формулой. Вот спасибо что помогли) А то бы еще долго не мог бы понять что не так )
_Boroda_, да только что запустил. Моментом сделал 250стр. Я думал руками щас делать через повторение последней операции по F4. Очень Вам СПАСИБО! Да то что нет снизу разрыва я то сразу заметил. Но я забыл что это руками делалось думал формулой. Вот спасибо что помогли) А то бы еще долго не мог бы понять что не так )koyaanisqatsi