Печать только определенных страниц отчета с заданным кол-вом экземпляров

Dim intPgStart As Integer 'Нач страница

Dim intPgEnd As Integer 'Конечная страница

Dim intCop As Integer 'Кол-во копий

intPgStart = 1

intPgEnd = 3

intCop = 2

'Печатаем с 1-й по 3-ю страницу отчета в 2-х экземп-х ...

DoCmd.OpenReport "ОтчетПродаж", acPreview, , , acHidden

DoCmd.PrintOut acPages, intPgStart, intPgEnd, , intCop, False

DoCmd.Close acReport, "ОтчетПродаж"