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

Вход

Регистрация

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

 

= Мир MS Excel/Расстановка разрывов на листе во всей книге по условию - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Расстановка разрывов на листе во всей книге по условию (Макросы/Sub)
Расстановка разрывов на листе во всей книге по условию
minister Дата: Понедельник, 10.02.2020, 08:14 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Опробовал макрос, все норм.
НО вылезла проблема - на листе получилось по 3 странички.

Всё книгу нужно распечатать двухсторонней печатью.
Так вот новая страничка нового листа печатается на оборотной стороне, где напечаталась последняя страничка предыдущего листа.

Можно как то это победить?
 
Ответить
СообщениеОпробовал макрос, все норм.
НО вылезла проблема - на листе получилось по 3 странички.

Всё книгу нужно распечатать двухсторонней печатью.
Так вот новая страничка нового листа печатается на оборотной стороне, где напечаталась последняя страничка предыдущего листа.

Можно как то это победить?

Автор - minister
Дата добавления - 10.02.2020 в 08:14
RAN Дата: Понедельник, 10.02.2020, 10:44 | Сообщение № 22
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5321
Репутация: 1063 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub Вставить_разрывы()
    Dim sh As Worksheet
    Dim FoundStr As Range
    Dim FAdr As String, r&
    Application.ScreenUpdating = False
    For Each sh In Worksheets
    With sh
        .PageSetup.PrintArea = "$A:$HC"
        .ResetAllPageBreaks
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = False
        Set FoundStr = .Columns("GE:HC").Find("новая страничка", , xlValues, xlWhole)
        If Not FoundStr Is Nothing Then
            FAdr = FoundStr.Address
            Do
                Set FoundStr = .Columns("GE:HC").FindNext(FoundStr)
                .HPageBreaks.Add Before:=sh.Rows(FoundStr.Row)
            Loop While FoundStr.Address <> FAdr
        End If
        If .HPageBreaks.Count Mod 2 = 0 Then
            r = .UsedRange.Row + .UsedRange.Rows.Count
            .Cells(r, 1) = "."
            .Cells(r, 1).NumberFormat = ";;;"
            .HPageBreaks.Add Before:=.Cells(r, 1)
        End If
    End With
    Next
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub Вставить_разрывы()
    Dim sh As Worksheet
    Dim FoundStr As Range
    Dim FAdr As String, r&
    Application.ScreenUpdating = False
    For Each sh In Worksheets
    With sh
        .PageSetup.PrintArea = "$A:$HC"
        .ResetAllPageBreaks
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = False
        Set FoundStr = .Columns("GE:HC").Find("новая страничка", , xlValues, xlWhole)
        If Not FoundStr Is Nothing Then
            FAdr = FoundStr.Address
            Do
                Set FoundStr = .Columns("GE:HC").FindNext(FoundStr)
                .HPageBreaks.Add Before:=sh.Rows(FoundStr.Row)
            Loop While FoundStr.Address <> FAdr
        End If
        If .HPageBreaks.Count Mod 2 = 0 Then
            r = .UsedRange.Row + .UsedRange.Rows.Count
            .Cells(r, 1) = "."
            .Cells(r, 1).NumberFormat = ";;;"
            .HPageBreaks.Add Before:=.Cells(r, 1)
        End If
    End With
    Next
End Sub
[/vba]

Автор - RAN
Дата добавления - 10.02.2020 в 10:44
minister Дата: Понедельник, 10.02.2020, 11:22 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Sub Вставить_разрывы()


Спасибо.
Но походу в моём случае распечатать отдельно листы двухсторонней печатью получится только сохранением каждого листа в отдельный файл.

В листах размер содержимого пляшет, где-то 3 страницы, где-то чуть больше , где-то меньше..... Вот задача незадача))
 
Ответить
Сообщение
Sub Вставить_разрывы()


Спасибо.
Но походу в моём случае распечатать отдельно листы двухсторонней печатью получится только сохранением каждого листа в отдельный файл.

В листах размер содержимого пляшет, где-то 3 страницы, где-то чуть больше , где-то меньше..... Вот задача незадача))

Автор - minister
Дата добавления - 10.02.2020 в 11:22
Kuzmich Дата: Понедельник, 10.02.2020, 11:47 | Сообщение № 24
Группа: Проверенные
Ранг: Ветеран
Сообщений: 511
Репутация: 99 ±
Замечаний: 0% ±

Excel 2003
Может собрать все листы на один сводный, расставить разрывы и печатать его?
 
Ответить
СообщениеМожет собрать все листы на один сводный, расставить разрывы и печатать его?

Автор - Kuzmich
Дата добавления - 10.02.2020 в 11:47
minister Дата: Вторник, 11.02.2020, 04:44 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Может собрать все листы на один сводный, расставить разрывы и печатать его?


Запутаться можно, много страниц, большая вероятность что на одном листе с двух сторон разные карточки напечатаются.

Сделаю так - макросом вашим разрывы расставлю - потом макросом в pdf каждый лист экспортирую. Хочу чтоб название pdf файла бралось из определенной ячейки экспортируемого листа.

А потом массово запущу на печать.
 
Ответить
Сообщение
Может собрать все листы на один сводный, расставить разрывы и печатать его?


Запутаться можно, много страниц, большая вероятность что на одном листе с двух сторон разные карточки напечатаются.

Сделаю так - макросом вашим разрывы расставлю - потом макросом в pdf каждый лист экспортирую. Хочу чтоб название pdf файла бралось из определенной ячейки экспортируемого листа.

А потом массово запущу на печать.

Автор - minister
Дата добавления - 11.02.2020 в 04:44
RAN Дата: Вторник, 11.02.2020, 09:50 | Сообщение № 26
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5321
Репутация: 1063 ±
Замечаний: 0% ±

2010
У меня нет духстороннего принтера, чтобы проверить ваше утверждение, но, похоже, вы мой код даже не пытались запустить. А ежели пытались, то что не получается?


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеУ меня нет духстороннего принтера, чтобы проверить ваше утверждение, но, похоже, вы мой код даже не пытались запустить. А ежели пытались, то что не получается?

Автор - RAN
Дата добавления - 11.02.2020 в 09:50
minister Дата: Пятница, 14.02.2020, 06:23 | Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
А ежели пытались, то что не получается?


Спасибо, код я пробовал. Он добавляет нужную 4-ю страничку.
Но проблема в том, что некоторые карточки получаются на 4 листа, и при выполнении макроса получается 5 листов этой карточки. То есть опять друг на друге печатаются.

p/s Спасибо.
Проблему уже решил. Экспорт всех листов в отдельный pdf . Потом массовая печать этих pdf файлов.
 
Ответить
Сообщение
А ежели пытались, то что не получается?


Спасибо, код я пробовал. Он добавляет нужную 4-ю страничку.
Но проблема в том, что некоторые карточки получаются на 4 листа, и при выполнении макроса получается 5 листов этой карточки. То есть опять друг на друге печатаются.

p/s Спасибо.
Проблему уже решил. Экспорт всех листов в отдельный pdf . Потом массовая печать этих pdf файлов.

Автор - minister
Дата добавления - 14.02.2020 в 06:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Расстановка разрывов на листе во всей книге по условию (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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