' количество страниц me.pages можно сохранить в паблик переменную
private sub PrtSv( PrintDuplex as boolean)
with me.printer ' это объект принтер который отвечает за принтер печатающий отчет (или Me.printer - у меня прсото
 .Duplex = PrintDuplex ' управляем дуплексом
' и так далее интеллисенс должен подсказать
end with
DoCmd.OpenREport rptname, acViewNormal ' печатаем 
DoCmd.Close acReport, rptname, acSaveNo ' закрываем
end sub