TopPicLogo TopPicText

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

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, "ОтчетПродаж"

Назад ToTop
L.E. 12.11.2012
Рейтинг@Mail.ru