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

[Serge 007]

почему печатается страница "форма"

Потому что лист "форма" имеет индекс 1, который Вы указали в коде:

Код Выделить Развернуть

Worksheets(1).PrintOut

Если указать местоположение ячеек с данными, то получается печатать страницы sog будет?

Нет
Надо ещё явно указывать лист для печати

[krilovsky68]

Надо ещё явно указывать лист для печати

не подскажите как?
Изменить Worksheets(1) на Worksheets("sog")
как можно посмотреть какой индекс у страниц?
если я правильно понял, то изменение индекса будет указывать страницу, которая подлежит печати. верно?
а строка

Код Выделить Развернуть

Sheets("sog").Select, разве не говорит что нужно именно эту страницу печатать?
извините, пишу с телефона, возможно ошибся с тегом

[Serge 007]

Изменить Worksheets(1) на Worksheets(2)
Лист sog - второй по счету в файле

[Serge 007]

строка

Код Выделить Развернуть

Sheets("sog").Select, разве не говорит что нужно именно эту страницу печатать?

Нет
Эта строка всего лишь выделяет лист "sog", но уже следующая строка кода:

Код Выделить Развернуть

Worksheets(1).PrintOut Copies:=1, Collate:=True отправляет на печать лист "форма", поскольку этот лист имеет индекс 1

Если уж Вы хотите, что бы печатался активный лист при его активации, то надо написать в коде так:

Код Выделить Развернуть

Sheets("sog").Activate
ActiveSheet.PrintOut Copies:=1

пишу с телефона, возможно ошибся с тегом

Теги кода обязательны, когда Вы выкладываете код полностью или его куски, но для одного оператора можно использовать простое выделение, например жирный шрифт или цветом

[krilovsky68]

Сергей, я правильно понимаю, что отягощать конструкцию макроса нет смысла и возможно ограничится вариантом из ответа (17) или лучше использовать вариант из 18 ответа.
по сути же это одно и тоже.

[Serge 007]

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

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

Код Выделить Развернуть

Worksheets(4).PrintOut 2, 4, 1 отправит на печать по одной копии страницы со второй по четвертую четвертого листа ("список") Вашего файла

[krilovsky68]

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

[Serge 007]

лист и страницы не тождественны

Разумеется

запутался

Четко и кратко опишите задачу на основе Вашего файла
Примеры кода приводить не надо, только текст задачи
Попробуем сразу написать итоговый код

[krilovsky68]

постарался учесть ваши советы. надеюсь что правильно

Код Выделить Развернуть

Sub soglashenie()

     Dim i As Long
     Dim С As Long
     Dim ПО As Long
    
     С = Sheets("форма").Range("J10")
ПО = Sheets("форма").Range("K10")
    
     For i = С To ПО 'это диапазон номеров
     i = i + 1
         Range("'sog'!C2:G2").Value = i '
         Worksheets(1).Calculate
      
Sheets("sog").Activate
ActiveSheet.PrintOut Copies:=1, Collate:=True

 Sheets("форма").Select
     Next i
        
End Sub


[krilovsky68]

текст задачи
Попробуем сразу написать итоговый код

на странице форма указываем с по какую нумерацию печатать.
нажимаем печать.
печатается страница sog с выбранной нумерацией

[Serge 007]

итоговый код

К сожалению нет принтера, не могу проверить, но давайте попробуем так:

Код Выделить Развернуть

Sub soglashenie()
    Dim i&
        For i = Range("'форма'!j10") - 1 To Range("'форма'!k10") - 1
            i = i + 1
                Range("'sog'!C2") = i
                Sheets("sog").PrintOut
        Next i
End Sub

[krilovsky68]

Скажите пожалуйста, а для возврата на страницу форма строка

Код Выделить Развернуть

Sheets("форма").Selectне требуется?
и еще в вашем варианте отсутствует

Код Выделить Развернуть

Dim i As Long
     Dim С As Long
     Dim ПО As Long
   
С = Sheets("форма").Range("J10")
ПО = Sheets("форма").Range("K10")первая часть точно, а вторая как я понял компенсирована строкой

Код Выделить Развернуть

For i = Range("'форма'!j10") - 1 To Range("'форма'!k10") - 1завтра попробую проверить на принтере***.
*** полагал, что можно сделать так, что бы результат печати сохранялся в файл. грубо говоря, после строки Sheets("sog").PrintOut написать что то типа сохранить в пдф. да, без принтера тяжело проверить.

в любом случае спасибо за желание помочь. всегда буду рад помочь по своей деятельности.

[Serge 007]

для возврата на страницу форма

Если файл открыть на листе "форма", то возврат не понадобится
Если же необходим принудительный возврат, то да, в код перед

Код Выделить Развернуть

End Sub можно добавить строку

Код Выделить Развернуть

Sheets("форма").Activate

в вашем варианте отсутствует

Нет смысла объявлять переменные, если используешь их всего один раз
Вот я и не стал

можно сделать так, что бы результат печати сохранялся в файл

Можно, конечно
Но это уже другая тема, не имеющая отношения к текущей
Если надо - создайте новую

всегда буду рад помочь по своей деятельности

Спасибо за предложение, может быть и обращусь 

[krilovsky68]

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

[krilovsky68]

Спасибо за предложение, может быть и обращусь 

лучше мы к вам.

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

в общем вопрос с выбором принтера более актуальный.