Выбор последней и предпоследней страницы при печати

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Выбор последней и предпоследней страницы при печати (Макросы/Sub)

maksimolololllka

Дата: Понедельник, 16.01.2023, 17:11 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Добрый день!
Есть необходимость при печати осуществлять масштабирование и печать определенных страниц.

Макрос удалось создать при помощи записи действий, но нужно доработать следующий момент:
При выводе на печать может быть минимум 3 листа, максимум неограничен.
Печатаются сначала 1 и последняя страница в определенном масштабе, а все что между - другое форматирование.
Если страниц для печати 3 - то все ок, создается шаблон под него, но если листов 4 и более, то в коде нужно указать обозначение предпоследней и последней страницы.

Вопрос в том как сделать макрос универсальным для любого количества страниц на печати.

Ответить

maksimolololllka

Дата: Понедельник, 16.01.2023, 17:11 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

[vba]

Код

Sub Выписка3листа()
'
' Выписка3листа Макрос
'
' Сочетание клавиш: Ctrl+z
'
    ActiveWindow.SmallScroll Down:=-60
    Range("1:10,22:22").Select
    Range("A22").Activate
    Selection.Delete Shift:=xlUp
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AO$54"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 80
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = False
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AO$54"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = False
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
End Sub

[/vba]

[vba]

Код

[/vba]maksimolololllka

Ответить

Сообщение[vba]

Код

[/vba]

Автор - maksimolololllka
Дата добавления - 16.01.2023 в 17:11

_Boroda_

Дата: Понедельник, 16.01.2023, 17:38 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Код

KolStran = ExecuteExcel4Macro("GET.DOCUMENT(50)")

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

maksimolololllka

Дата: Вторник, 17.01.2023, 12:21 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Цитата _Boroda_, 16.01.2023 в 17:38, в сообщении № 3 (

)

KolStran = ExecuteExcel4Macro("GET.DOCUMENT(50)")

Спасибо! Отличный счетчик!
Подскажите, пожалуйста, решил проверить сколько он насчитает листов на печать, при выводе количества через MsgBox, получаю количество 3, вместо реальных 50 (другой документ, где как раз больше данных). Иногда выдает верное значение при ручном пролистывании всей таблицы, но перенос на последнюю ячейку делу не помог.

К сообщению приложен файл: 4773822.png (1.2 Kb) · 1673623.png (0.6 Kb)

Ответить

_Boroda_

Дата: Вторник, 17.01.2023, 13:12 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Попробуйте явно указать книгу и лист
Типа вот так
[vba]

Код

KolStran = ExecuteExcel4Macro ("GET.DOCUMENT(50,""[" & ActiveWorkbook.Name & "]" & ActiveSheet.Name & """)")

[/vba]

Или вот так попробуйте
[vba]

Код

    Application.ScreenUpdating = 0
    ActiveWindow.View = xlPageBreakPreview
    ActiveWindow.View = xlNormalView
    olStran = ExecuteExcel4Macro("GET.DOCUMENT(50,""[" & ActiveWorkbook.Name & "]" & ActiveSheet.Name & """)")
    Application.ScreenUpdating = 1

[/vba]

Ответить

maksimolololllka

Дата: Вторник, 17.01.2023, 15:36 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Цитата _Boroda_, 17.01.2023 в 13:12, в сообщении № 5 (

)

Попробуйте явно указать книгу и лист
Типа вот так

Дело в том, что имя книги и листа все время меняется. Идея генерация файлов с разными именами, листы также имеют разные названия. Но лист всегда один, запуск из личной книги макросов.

Нашел на просторах счетчик, который исправно определяет количество страниц:
[vba]

Код

Sub Pages_Count()
Dim Pages_Count As Long, sh
For Each sh In ThisWorkbook.Sheets 'ActiveWorkbook.Sheets
'Pages_Count = Pages_Count + sh.PageSetup.Pages.Count
sh.Activate: Pages_Count = Pages_Count + ExecuteExcel4Macro("GET.DOCUMENT(50)")
Next
MsgBox "Будет распечатано страниц: " & Pages_Count
End Sub

[/vba]

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