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

[krilovsky68]

Здравствуйте.
есть код печати с нумерацией.
необходимо сделать выбор принтера при печати - грубо говоря совместить два макроса.
макрос печати:

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

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

макрос выбора принтера при печати, авторства Щербакова Д.(нашел на смежном ресурсе):

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


Sub ChangePrinter()
    sNowPrinter = "Set"
    Dim v, s
    'запоминаем текущий принтер, чтобы можно было вернуть его после выбора
    s = Application.ActivePrinter
    'показываем окно выбора принтера
    v = Application.Dialogs(xlDialogPrinterSetup).Show
    'если принтер был выбран - запоминаем выбор
    If v = True Then
        sNowPrinter = Application.ActivePrinter
    End If
    'возвращаем принтер по умолчанию, чтобы стандартная печать шла на него
    Application.ActivePrinter = s
End Sub
насколько я понимаю, макрос выбора должен стоять перед строкой Sheets("www").PrintOut а строка  Application.ActivePrinter = s в самом конце.
Но в своей компиляции совсем не уверен, поскольку есть затруднение с функцией  Dim
Был бы благодарен за итоговый вариант сращивания макросов

[krilovsky68]

и если не затруднит, макрос правильно сделал?

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

Sub печать()
   sNowPrinter = "Set"
    Dim v, s
    s = Application.ActivePrinter
    v = Application.Dialogs(xlDialogPrinterSetup).Show
    If v = True Then
        sNowPrinter = Application.ActivePrinter
    End If
Sheets("naz").Select
ActiveSheet.PrintOut Copies:=Sheets("форма").Range("j17")
Sheets("форма").Select
 
   Application.ActivePrinter = s

End Sub


[Татьянка]

итоговый вариант сращивания макросов

Что должен делать "сращенный" макрос?

[krilovsky68]

Что должен делать "сращенный" макрос?

печать страницы.
прилагаю файл для наглядности - в первом сообщении (вопросе)

[Татьянка]

печать страницы

Для печати страницы достаточно одной команды - PrintOut, а у вас два макроса по несколько строк

[krilovsky68]

необходима  печать страницы с предварительным выбором принтера.
файл вопрос.xlsm вкладка "форма".
выбор принтера листа N сделал (правда не совсем уверен, что правильно).
с листом S сложности...
прилагаю файл для наглядности - в первом сообщении.

[Татьянка]

выбор принтера листа N сделал

Лист N надо печатать другим принтером?
Этого нет ни в условиях, ни в макросе

[krilovsky68]

Лист N надо печатать другим принтером?
Этого нет ни в условиях, ни в макросе

надо сделать возможность выбора принтера при печати.
Лист "N"
Лист "N" с листа "форма" печатается с отображением окна выбора принтера. Насколько корректно я скомпилировал два макроса не знаю, но надеюсь что правильно.

Лист "S"
лист "S" с  листа "форма" печатается, но без выбора принтера.
Задача сделать возможность выбора принтера для печати листа "S" c листа "форма".
Для этого надо объединить два макроса: макрос печати и макрос выбора принтера. Оба макроса в первом сообщении указаны.

[krilovsky68]

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

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

Sub soglashenie()
    Dim v, s
    'запоминаем текущий принтер, чтобы можно было вернуть его после выбора
    s = Application.ActivePrinter
    'показываем окно выбора принтера
    v = Application.Dialogs(xlDialogPrinterSetup).Show
    'если принтер был выбран - запоминаем выбор
    If v = True Then
        sNowPrinter = Application.ActivePrinter
    End If
   
    Dim i&
        For i = Range("'форма'!j10") - 1 To Range("'форма'!k10") - 1
            i = i + 1
            Range("'S'!C2") = i
            Sheets("S").PrintOut
        Next i
Sheets("форма").Select

'возвращаем принтер по умолчанию, чтобы стандартная печать шла на него
    Application.ActivePrinter = s
End Sub

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

[Serge 007]

Задача сделать возможность выбора принтера для печати листа "S" c листа "форма".

Так надо?

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

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

[Vad]

Так надо?

Надо.. чтоб выбрался принтер по умолчанию, отпечатались все заданные бланки, вернулся принтер по умолчанию, который был. и Да все работает как надо...вроде.. но принтер по умолчанию не вернулся...наверно потому, что я прервал макрос...

[Serge 007]

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

вернулся принтер по умолчанию

Если просто ничего не делать (работать без макросов), то так и произойдет
Но, раз автору темы нужен макрос, то есть какая-то задача посложнее

[Vad]

Если просто ничего не делать (работать без макросов), то так и произойдет
Но, раз автору темы нужен макрос, то есть какая-то задача посложнее

перезакрыл... макрос работает.. принтер по умолчанию возвращается)))!!

[krilovsky68]

Так надо?

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

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

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

[krilovsky68]

автору темы нужен макрос, то есть какая-то задача посложнее

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