Microsoft предлагает одно безобразное решение этой проблемы; используя SendKeys, вручную выберите правильный лоток в диалоговом окне настроек печати.
Другим вариантом может быть установка дополнительных принтеров в Windows, где каждый принтер фактически связан с другим лотком на том же принтере. Затем вы можете выбрать соответствующий лоток в VBA. Эта статья содержит подробности.
Или, если в вашем принтере окажется лоток другого размера, в который вы хотите печатать, вы можете установить (например):
ws.PageSetup.PaperSize = xlPaperLegal
И принтер автоматически выберет правильный лоток. Я только что попробовал это на своем принтере, и он заставил лист печатать в лотке ручной подачи, потому что у меня фактически нет лотка для бумаги формата Legal.