При печати документов из Word с помощью VBA можно выбрать лоток принтера, из которого документ должен получать лист. В Excel у вас нет возможности установить свойства FirstPageTray или OtherPagesTray, как в Word. Можно создать простое решение с помощью SendKeys.

Вот два примера макроса:

Sub ChangeTray()

' selects the manual page tray without printing

Application.SendKeys "%fu%e{TAB}{DOWN}{DOWN}{TAB}m~{ESC}", True

End Sub

Sub ChangeTrayAndPrint()

' selects the manual page tray and prints the selected sheet(s)

Application.SendKeys "%fu%e{TAB}{DOWN}{DOWN}{TAB}m~~", True

End Sub

Приведенный выше пример макроса будет работать с норвежской версией Excel97 вместе с пузырьковым принтером Canon.

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

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