Wasilic, рамку нарисовал руками и чуточку доработал макрос под себя - деление по 29 строк + верхняя строка номер страницы, поиск начала города по символу "*" в 3 столбце - все работает - спасибо за помощь единственный минус обнаружился - в некоторых строках идет перенос по словам в строке из за чего ширина строки на соседней странице расползается и ширина листа соответственно плыть начинает ввиду чего вопрос - а можно ли обрезать строки по длине с переносом отрезанного?
Wasilic, рамку нарисовал руками и чуточку доработал макрос под себя - деление по 29 строк + верхняя строка номер страницы, поиск начала города по символу "*" в 3 столбце - все работает - спасибо за помощь единственный минус обнаружился - в некоторых строках идет перенос по словам в строке из за чего ширина строки на соседней странице расползается и ширина листа соответственно плыть начинает ввиду чего вопрос - а можно ли обрезать строки по длине с переносом отрезанного?luny
Строки обрезать нельзя. написал макрос, который определяет адрес 1-й ячейки на каждом листе с учетом принтера.
Нужно понимать, что в зависимости от выбранного принтера и настроек параметров печати один и тот - же диапазон может делится на разные части. Поэтому целесообразно перед печатью удостоверится, что ваши данные не выходят за пределы нужного листа.
Строки обрезать нельзя. написал макрос, который определяет адрес 1-й ячейки на каждом листе с учетом принтера.
Нужно понимать, что в зависимости от выбранного принтера и настроек параметров печати один и тот - же диапазон может делится на разные части. Поэтому целесообразно перед печатью удостоверится, что ваши данные не выходят за пределы нужного листа.SLAVICK
Военная тайна что ли? Вам тут пытаются помочь, а Вы скрываете свои источники. Да ещё и на правила ссылаетесь, радикально их исказив. Нехорошо
вот так вот - не хотел попасть в опал - чтоб даже лишнего повода не было - но все равно виновен..:confused: нет там больше ничего - тема из одно сообщения была...сюда - поиском можно было найти если оч хотелось...
Военная тайна что ли? Вам тут пытаются помочь, а Вы скрываете свои источники. Да ещё и на правила ссылаетесь, радикально их исказив. Нехорошо
вот так вот - не хотел попасть в опал - чтоб даже лишнего повода не было - но все равно виновен..:confused: нет там больше ничего - тема из одно сообщения была...сюда - поиском можно было найти если оч хотелось...luny
разница в том что нам надо сразу ее скопировать ... - для того чтоб скопировать нужно знать ее границы (для этого нужно или во время разбивки на страницы это делать или сразу разбивать а потом перебором искать эти границы - потом копировать - оба случая минимум на десяток другой строк) - и/или можно задать страница №n копировать туда то - счетчик страниц n+1 - все
разница в том что нам надо сразу ее скопировать ... - для того чтоб скопировать нужно знать ее границы (для этого нужно или во время разбивки на страницы это делать или сразу разбивать а потом перебором искать эти границы - потом копировать - оба случая минимум на десяток другой строк) - и/или можно задать страница №n копировать туда то - счетчик страниц n+1 - все
Serge_007, вопрос уже решен подобным образом ( от границы к границе) на 100% Wasilic и частично Pelena в соседней теме - лично мое мнение что обращаться к странице веселей и проще - да и поле это похоже вообще не паханное - народ в начале темы вообще не верил что такое возможно..
Serge_007, вопрос уже решен подобным образом ( от границы к границе) на 100% Wasilic и частично Pelena в соседней теме - лично мое мнение что обращаться к странице веселей и проще - да и поле это похоже вообще не паханное - народ в начале темы вообще не верил что такое возможно..luny
Sub Print_Odd_Even() Dim Totalpages As Long Dim StartPage As Long Dim Page As Integer StartPage = 1 ' Задайте 1 = для Нечетных или 2 - для Четных ' Или используйте диалог для ввода 'StartPage = InputBox("Ввведите 1 для печати нечетных страниц, 2 - для четных") Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") For Page = StartPage To Totalpages Step 2 ActiveSheet.PrintOut from:=Page, To:=Page Next End Sub
[/vba]
видите как тут задано - просто StartPage = 1 - ни тебе строки начала диапазона ни конца - просто StartPage = 1 - потом
[vba]
Код
For Page = StartPage To Totalpages Step 2 ActiveSheet.PrintOut from:=Page, To:=Page
[/vba]
здесь нет описания диапазонов а просто указываются номера страниц.. - понимаете что я хочу сказать?
может я чего неправильно сказал - именно так как я хотел и решили... результатом доволен..
Sub Print_Odd_Even() Dim Totalpages As Long Dim StartPage As Long Dim Page As Integer StartPage = 1 ' Задайте 1 = для Нечетных или 2 - для Четных ' Или используйте диалог для ввода 'StartPage = InputBox("Ввведите 1 для печати нечетных страниц, 2 - для четных") Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") For Page = StartPage To Totalpages Step 2 ActiveSheet.PrintOut from:=Page, To:=Page Next End Sub
[/vba]
видите как тут задано - просто StartPage = 1 - ни тебе строки начала диапазона ни конца - просто StartPage = 1 - потом
[vba]
Код
For Page = StartPage To Totalpages Step 2 ActiveSheet.PrintOut from:=Page, To:=Page
[/vba]
здесь нет описания диапазонов а просто указываются номера страниц.. - понимаете что я хочу сказать?luny
Сообщение отредактировал Serge_007 - Суббота, 22.11.2014, 20:06
или это недоразумение или...- может я криво объяснял - НО ТОТ РЕЗУЛЬТАТ ЧТО ПОЛУЧИЛСЯ МНЕ И БЫЛ НУЖЕН - или вы считаете что знаете лучше меня что мне нужно что ли...
Я, например, на работе вообще Word'ом не пользуюсь, все в Excel.
про эксель - многогранность ключ к безграничности мы сейчас тупо разводим флуд - если б вы меня все таки не отговорили воспользовался своим же советом то и замечаний бы мне не было
я не выделил тегом строки потому что хотел чтоб они были внутри текста... - но может и вправду так читаться будет лучше..
принципиальная разница В ПРИНЦИПЕ ЗАДАНИЯ СТРАНИЦ и все - нет сложных трех этажных переборов - нет кучи переменных со счетчиками...это как скажем можно найти результат умножения непосредственно умножением - с помощью таблицы умножения - а можно и поочередным прибавление n раз - результат один и тот же а процессы протекают по разному - и во втором случае вероятность ошибки в n раз выше... и все
или это недоразумение или...- может я криво объяснял - НО ТОТ РЕЗУЛЬТАТ ЧТО ПОЛУЧИЛСЯ МНЕ И БЫЛ НУЖЕН - или вы считаете что знаете лучше меня что мне нужно что ли...
Я, например, на работе вообще Word'ом не пользуюсь, все в Excel.
про эксель - многогранность ключ к безграничности мы сейчас тупо разводим флуд - если б вы меня все таки не отговорили воспользовался своим же советом то и замечаний бы мне не было
я не выделил тегом строки потому что хотел чтоб они были внутри текста... - но может и вправду так читаться будет лучше..
принципиальная разница В ПРИНЦИПЕ ЗАДАНИЯ СТРАНИЦ и все - нет сложных трех этажных переборов - нет кучи переменных со счетчиками...это как скажем можно найти результат умножения непосредственно умножением - с помощью таблицы умножения - а можно и поочередным прибавление n раз - результат один и тот же а процессы протекают по разному - и во втором случае вероятность ошибки в n раз выше... и всеluny
создана 13,11,14 - ответ в сообщении номер 20 от 20,11,14
Неделя на решение? Ваша тема в рекордсменах, поздравляю! При правильной постановке вопроса обычно решение находится за несколько минут/часов, в очень сложных задачах за день, максимум два.
Впрочем это уже неважно, задача решена, тема закрыта.
создана 13,11,14 - ответ в сообщении номер 20 от 20,11,14
Неделя на решение? Ваша тема в рекордсменах, поздравляю! При правильной постановке вопроса обычно решение находится за несколько минут/часов, в очень сложных задачах за день, максимум два.
Впрочем это уже неважно, задача решена, тема закрыта.Serge_007