Макрос печать принтер

[Diman11]

Добрый день. Создал в xls макрос для печати файла (распечатать все на 1 листе + отправить на печать).
Создавал через запись действий.
Подскажите как в макрос добавить, выбора принтера + печать все на 1 листе?

Спасибо

[Hugo121]

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

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

Sub testprint()

Set wb = ThisWorkbook
aprint = Application.ActivePrinter

For i = 1 To Sheets.Count
If (Sheets(i).Cells(14, 4).Value) <> 0 Then
Sheets(i).PrintOut Copies:=1, ActivePrinter:= _
        "pdfFactory Pro on FPP3:"
End If
Next i
Application.ActivePrinter = aprint

End Sub


[Diman11]

Записываю 2 макроса. В одном меняю принтер. Но он срабатывает на принтер, который стоит дефолтно.
Подскажите, можно указать контретный принтер в макросе?

[Hugo121]

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

- ну вот ведь в коде выше:

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

ActivePrinter:= _
        "pdfFactory Pro on FPP3:"