Произвольный порядок печати страниц

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Произвольный порядок печати страниц (Формулы/Formulas)

DrMini

Дата: Четверг, 14.04.2022, 14:00 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1647

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

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

Excel LTSC 2024 RUS

Доброго времени суток форумчане и гости форума.
Возникла необходимость печати страниц с листа в произвольном порядке (выборочно).
Например как в Word: 1,3,5-7 (страницы.)
Оказалось (к моему удивлению) в Excel такой возможности нет.
Порывшись в Internet наткнулся на надстройку KuTools в которой такая возможность печати реализована. Но в KuTools слишком много всего, что мне не пригодится.
Может, кто подскажет надстройку или макрос (макрос нежелателен в виду необходимости конвертировать файл в файл с поддержкой макросов) для реализации такой возможности в Excel?

Сообщение отредактировал DrMini - Пятница, 15.04.2022, 05:19

Ответить

_Boroda_

Дата: Четверг, 14.04.2022, 14:19 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Макрос. Можно записать в Персонал и запускать с кнопки ПБД или ленты

[vba]

Код

Sub MoyPrint()
    On Error Resume Next
    ar = Split(Replace(Application.InputBox("Пример: 1;4-6;8-11;14", "Введите номера листов"), " ", ""), ";")
    If ar(0) <> "False" Then
        Application.DisplayAlerts = 0
        For i = 0 To UBound(ar)
            ar1 = Split(ar(i) & "-" & ar(i), "-")
            s1_ = ar1(0)
            s2_ = ar1(1)
            Err.Clear
            ActiveWindow.SelectedSheets.PrintOut From:=s1_, To:=s2_, Copies:=1, Collate:=True
            If Err.Number = 0 Then
                t_ = t_ & vbLf & s1_ & "-" & s2_
            End If
        Next i
        Application.DisplayAlerts = 1
        t_ = "Напечатаны страницы " & t_
        MsgBox t_
    End If
End Sub

[/vba]

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