Тема наверно вечная, но для меня пока не решенная. Пользоваться сквозными строками функционала Эксель я умею (или думаю, что умею), но найти решение, чтобы сквозные строки печатались только на нужных листах (подразумеваю режим печати, а не листы книги эксель). В данном конкретном случае не нужно печать сквозные строки на последнем листе, потому как они нужны только для листов где таблица идет. Я так понимаю, что такую задачу можно решить только маркосами..
Тема наверно вечная, но для меня пока не решенная. Пользоваться сквозными строками функционала Эксель я умею (или думаю, что умею), но найти решение, чтобы сквозные строки печатались только на нужных листах (подразумеваю режим печати, а не листы книги эксель). В данном конкретном случае не нужно печать сквозные строки на последнем листе, потому как они нужны только для листов где таблица идет. Я так понимаю, что такую задачу можно решить только маркосами..ovechkin1973
Обходной вариант. Таблицу оставьте на том листе, на котором она есть, а все, что ниже таблицы, перенесите на другой лист. И печатайте эти два листа. Только в этом случае внизу таблицы будет пусто.
Обходной вариант. Таблицу оставьте на том листе, на котором она есть, а все, что ниже таблицы, перенесите на другой лист. И печатайте эти два листа. Только в этом случае внизу таблицы будет пусто.Karataev
Ручной вариант (без макросов и прочего). На тех листах, где нет таблиц, устанавливайте принудительные разрывы страниц. Затем печатайте страницы с таблицами (при печати можно указывать номера страниц), затем убирайте сквозные строки и печатайте оставшиеся листы. Я сделал в файле два разрыва. Кроме того, в Ваш файл я добавил строки, чтобы увеличить количество страниц, чтобы протестировать.
Ручной вариант (без макросов и прочего). На тех листах, где нет таблиц, устанавливайте принудительные разрывы страниц. Затем печатайте страницы с таблицами (при печати можно указывать номера страниц), затем убирайте сквозные строки и печатайте оставшиеся листы. Я сделал в файле два разрыва. Кроме того, в Ваш файл я добавил строки, чтобы увеличить количество страниц, чтобы протестировать.Karataev
Karataev, Спасибо.. как вариант подойдет, но не идеал. А макросами в принципе не возможно или очень трудоемко? Хотелось бы печатать нажатием одной кнопки..
Karataev, Спасибо.. как вариант подойдет, но не идеал. А макросами в принципе не возможно или очень трудоемко? Хотелось бы печатать нажатием одной кнопки..ovechkin1973
Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
Можно сделать так. Вы ставите вручную разрывы страниц там, где надо. А макрос будет печатать. Или лист постоянно меняется и Вам придется постоянно ставить разрывы страниц?
Можно сделать так. Вы ставите вручную разрывы страниц там, где надо. А макрос будет печатать. Или лист постоянно меняется и Вам придется постоянно ставить разрывы страниц?Karataev
Для работы макроса на листе должны быть сквозные строки. Должны быть ручные разрывы страниц на страницах, на которых нет таблиц (как в посте 3). В макросе укажите номера страниц: первая пара - это страницы с таблицей, вторая пара - страницы без таблицы.
[vba]
Код
Sub Печать()
Dim sh As Worksheet, strPrintTitleRows As String Dim boolSaved As Boolean
boolSaved = ActiveWorkbook.Saved Set sh = ActiveSheet sh.PrintOut From:=1, To:=3 strPrintTitleRows = sh.PageSetup.PrintTitleRows sh.PageSetup.PrintTitleRows = "" sh.PrintOut From:=4, To:=5 sh.PageSetup.PrintTitleRows = strPrintTitleRows If boolSaved = True Then ActiveWorkbook.Saved = True End If
End Sub
[/vba]
Для работы макроса на листе должны быть сквозные строки. Должны быть ручные разрывы страниц на страницах, на которых нет таблиц (как в посте 3). В макросе укажите номера страниц: первая пара - это страницы с таблицей, вторая пара - страницы без таблицы.
[vba]
Код
Sub Печать()
Dim sh As Worksheet, strPrintTitleRows As String Dim boolSaved As Boolean
boolSaved = ActiveWorkbook.Saved Set sh = ActiveSheet sh.PrintOut From:=1, To:=3 strPrintTitleRows = sh.PageSetup.PrintTitleRows sh.PageSetup.PrintTitleRows = "" sh.PrintOut From:=4, To:=5 sh.PageSetup.PrintTitleRows = strPrintTitleRows If boolSaved = True Then ActiveWorkbook.Saved = True End If
Для работы макроса на листе должны быть сквозные строки. Должны быть ручные разрывы страниц на страницах, на которых нет таблиц (как в посте 3). В макросе укажите номера страниц: первая пара - это страницы с таблицей, вторая пара - страницы без таблицы.
Добрый день. Скажите пожалуйста, а можно сделать так, чтобы сквозные строки печатались только на нечетных или четных страницах?
Для работы макроса на листе должны быть сквозные строки. Должны быть ручные разрывы страниц на страницах, на которых нет таблиц (как в посте 3). В макросе укажите номера страниц: первая пара - это страницы с таблицей, вторая пара - страницы без таблицы.
Добрый день. Скажите пожалуйста, а можно сделать так, чтобы сквозные строки печатались только на нечетных или четных страницах?yasperson4690
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
