Questo ti elenca le stampanti disponibili
For i = 1 To Application.Printers.Count
debug.print Application.Printers(i - 1).DeviceName
Next
che puoi facilmente modificare in modo che ti vada a popolare ad esempio un listbox o combobox
questo invece ti stampa il report nella stampante scelta
DoCmd.OpenReport myReport, acViewPreview, , , acHidden, myArgs
Reports(myReport).Printer = Application.Printers(NomeStampanteScelta)
DoCmd.OpenReport myReport, acViewNormal
DoCmd.Close acReport, myReport, acSaveNo