Как поменять принтер?

Как программно, т.е. из кода VB поменять дефолтовый принтер на другой принтер, непосредственно перед выводом отчета на печать?

API-функция SetDefaultPrinter: см http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/prntspol_027m.asp

Спасиба!!!

Перед командой DoCmd.OpenReport добавь такую строчку:

Set Application.Printer = Application.Printers(x)

где вместо x - номер нужного принтера (нумерация принтеров начинается с 0)