12. Используя этот пример, Вы сможете печатать отчет через DoCmd.RunCommand acCmdPrint
'12. Печать на нескольких принтерах
Private Sub Example12_Click()
On Error GoTo 999 'Выход по ошибке
While (1) 'Назначаем бесконечный цикл
DoCmd.SelectObject acReport, "Пример 12", True 'Выбираем отчет в БД
DoCmd.RunCommand acCmdPrint 'Вызываем печать
Wend
999:
Err.Clear 'Очищаем ошибку при отмене печати
DoCmd.SelectObject acForm, Me.Name 'Выбираем форму
End Sub