Выбор последней и предпоследней страницы при печати
maksimolololllka
Дата: Понедельник, 16.01.2023, 17:11 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Добрый день! Есть необходимость при печати осуществлять масштабирование и печать определенных страниц. Макрос удалось создать при помощи записи действий, но нужно доработать следующий момент: При выводе на печать может быть минимум 3 листа, максимум неограничен. Печатаются сначала 1 и последняя страница в определенном масштабе, а все что между - другое форматирование. Если страниц для печати 3 - то все ок, создается шаблон под него, но если листов 4 и более, то в коде нужно указать обозначение предпоследней и последней страницы. Вопрос в том как сделать макрос универсальным для любого количества страниц на печати.
Добрый день! Есть необходимость при печати осуществлять масштабирование и печать определенных страниц. Макрос удалось создать при помощи записи действий, но нужно доработать следующий момент: При выводе на печать может быть минимум 3 листа, максимум неограничен. Печатаются сначала 1 и последняя страница в определенном масштабе, а все что между - другое форматирование. Если страниц для печати 3 - то все ок, создается шаблон под него, но если листов 4 и более, то в коде нужно указать обозначение предпоследней и последней страницы. Вопрос в том как сделать макрос универсальным для любого количества страниц на печати. maksimolololllka
Ответить
Сообщение Добрый день! Есть необходимость при печати осуществлять масштабирование и печать определенных страниц. Макрос удалось создать при помощи записи действий, но нужно доработать следующий момент: При выводе на печать может быть минимум 3 листа, максимум неограничен. Печатаются сначала 1 и последняя страница в определенном масштабе, а все что между - другое форматирование. Если страниц для печати 3 - то все ок, создается шаблон под него, но если листов 4 и более, то в коде нужно указать обозначение предпоследней и последней страницы. Вопрос в том как сделать макрос универсальным для любого количества страниц на печати. Автор - maksimolololllka Дата добавления - 16.01.2023 в 17:11
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]Код
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] maksimolololllka
Ответить
Сообщение [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] Автор - 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]
[vba]Код
KolStran = ExecuteExcel4Macro("GET.DOCUMENT(50)")
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение [vba]Код
KolStran = ExecuteExcel4Macro("GET.DOCUMENT(50)")
[/vba] Автор - _Boroda_ Дата добавления - 16.01.2023 в 17:38
maksimolololllka
Дата: Вторник, 17.01.2023, 12:21 |
Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
KolStran = ExecuteExcel4Macro("GET.DOCUMENT(50)")
Спасибо! Отличный счетчик! Подскажите, пожалуйста, решил проверить сколько он насчитает листов на печать, при выводе количества через MsgBox, получаю количество 3, вместо реальных 50 (другой документ, где как раз больше данных). Иногда выдает верное значение при ручном пролистывании всей таблицы, но перенос на последнюю ячейку делу не помог.
KolStran = ExecuteExcel4Macro("GET.DOCUMENT(50)")
Спасибо! Отличный счетчик! Подскажите, пожалуйста, решил проверить сколько он насчитает листов на печать, при выводе количества через MsgBox, получаю количество 3, вместо реальных 50 (другой документ, где как раз больше данных). Иногда выдает верное значение при ручном пролистывании всей таблицы, но перенос на последнюю ячейку делу не помог.maksimolololllka
Ответить
Сообщение KolStran = ExecuteExcel4Macro("GET.DOCUMENT(50)")
Спасибо! Отличный счетчик! Подскажите, пожалуйста, решил проверить сколько он насчитает листов на печать, при выводе количества через MsgBox, получаю количество 3, вместо реальных 50 (другой документ, где как раз больше данных). Иногда выдает верное значение при ручном пролистывании всей таблицы, но перенос на последнюю ячейку делу не помог.Автор - maksimolololllka Дата добавления - 17.01.2023 в 12:21
_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]
Попробуйте явно указать книгу и лист Типа вот так [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] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Попробуйте явно указать книгу и лист Типа вот так [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] Автор - _Boroda_ Дата добавления - 17.01.2023 в 13:12
maksimolololllka
Дата: Вторник, 17.01.2023, 15:36 |
Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Попробуйте явно указать книгу и лист Типа вот так
Дело в том, что имя книги и листа все время меняется. Идея генерация файлов с разными именами, листы также имеют разные названия. Но лист всегда один, запуск из личной книги макросов. Нашел на просторах счетчик, который исправно определяет количество страниц: [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 ошибку, приходится перезагружать файл с таблицей, иначе исправления не помогают.
Попробуйте явно указать книгу и лист Типа вот так
Дело в том, что имя книги и листа все время меняется. Идея генерация файлов с разными именами, листы также имеют разные названия. Но лист всегда один, запуск из личной книги макросов. Нашел на просторах счетчик, который исправно определяет количество страниц: [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 ошибку, приходится перезагружать файл с таблицей, иначе исправления не помогают.maksimolololllka
Ответить
Сообщение Попробуйте явно указать книгу и лист Типа вот так
Дело в том, что имя книги и листа все время меняется. Идея генерация файлов с разными именами, листы также имеют разные названия. Но лист всегда один, запуск из личной книги макросов. Нашел на просторах счетчик, который исправно определяет количество страниц: [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 ошибку, приходится перезагружать файл с таблицей, иначе исправления не помогают.Автор - maksimolololllka Дата добавления - 17.01.2023 в 15:36
_Boroda_
Дата: Вторник, 17.01.2023, 15:43 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16714
Репутация:
6503
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Дело в том, что имя книги и листа все время меняется
Именно поэтому я и написал ActiveWorkbook и ActiveSheetНашел на просторах счетчик
Это же одно и то же, Вы разве не видите?как его грамотно интегрировать в код при печати страниц в конце кода со второй до предпоследней?
А Вы как делаете-то? [vba]Код
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=KolStran-1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False
[/vba]
Дело в том, что имя книги и листа все время меняется
Именно поэтому я и написал ActiveWorkbook и ActiveSheetНашел на просторах счетчик
Это же одно и то же, Вы разве не видите?как его грамотно интегрировать в код при печати страниц в конце кода со второй до предпоследней?
А Вы как делаете-то? [vba]Код
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=KolStran-1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False
[/vba]_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Дело в том, что имя книги и листа все время меняется
Именно поэтому я и написал ActiveWorkbook и ActiveSheetНашел на просторах счетчик
Это же одно и то же, Вы разве не видите?как его грамотно интегрировать в код при печати страниц в конце кода со второй до предпоследней?
А Вы как делаете-то? [vba]Код
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=KolStran-1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False
[/vba]Автор - _Boroda_ Дата добавления - 17.01.2023 в 15:43