макрос с выбором принтера при печати

[Serge 007]

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

Sheets("S").PrintOut ActivePrinter:="MyPrinter" Copies:=Sheets("форма").Range("j17")так нельзя

У метода PrintOut пятый аргумент ActivePrinter как раз задает имя активного принтера

Так будет работать:

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

Sheets("S").PrintOut Copies:=Sheets("форма").Range("j17"), ActivePrinter:="MyPrinter"

[Serge 007]

нужна возможность выбора принтера

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

Sub soglashenie()
    Dim i&
    DefaultPrinter = Application.ActivePrinter
    MyPrinter = Application.Dialogs(xlDialogPrinterSetup).Show
        For i = Range("'форма'!j10") - 1 To Range("'форма'!k10") - 1
            i = i + 1
                Range("'S'!C2") = i
                Sheets("S").PrintOut Copies:=Sheets("форма").Range("j17"), ActivePrinter:="MyPrinter"
        Next i
        Application.ActivePrinter = DefaultPrinter
    Sheets("форма").Activate
End Sub

[krilovsky68]

пишу с телефона, поэтому возможны ошибки.
код понятен.
j17 это количество копий.
в листе s это не требуется.
только в n
но структура построения макрос понятна

[Serge 007]

j17 это количество копий.
в листе s это не требуется.

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

Sheets("S").PrintOut ActivePrinter:="MyPrinter" Copies:=Sheets("форма").Range("j17")

Вы писали про копии для листа S

[krilovsky68]

Вы писали про копии для листа

понял ошибку. писал практически с телефона.
итоговый код

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

Sub печать()
DefaultPrinter = Application.ActivePrinter
MyPrinter = Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("N").PrintOut Copies:=Sheets("форма").Range("j17"), ActivePrinter:="MyPrinter"
Sheets("форма").Activate
End Subхотя честно говоря не совсем понял, почему макрос настолько сократился.
Остается подумать над нумерацией...

Всем огромное спасибо.