VBA, MS Access MS Access в примерах

Открытие отчёта на Печать или Просмотр

Печать

    DoCmd.OpenReport "Имя Отчета", acViewNormal

Просмотр

    DoCmd.OpenReport "Имя Отчета", acViewPreview
    DoCmd.RunCommand acCmdZoom100 'Установка масштаба отображения 100%

Или так:

    DoCmd.OpenReport "Имя Отчета", acViewPreview 'Открытие на просмотр
    DoCmd.Maximize                               'Во весь экран
    DoCmd.RunCommand acCmdPreviewOnePage         'Страницу по размеру окна


Просмотр отчета сразу в виде двух страниц

    DoCmd.OpenReport "Partners", acViewPreview
    DoCmd.RunCommand acCmdPreviewTwoPages 

Печать 2х копий

    DoCmd.OpenReport "Талон", acViewPreview, ,stLinkCriteria, acHidden
    Reports("Талон").Printer.Copies = 2
    DoCmd.Close acReport, "Талон"

Печать 2х копий

    DoCmd.OpenReport "Талон", acViewNormal, , stLinkCriteria, acHidden
    DoCmd.PrintOut acPrintAll, , , , 2
    DoCmd.Close acReport, "Талон"
Назад ToTop
L.E. 22.12.2017
Рейтинг@Mail.ru