Запуск и печать отчета о доступе через VBScript и / или командную строку

Question

Мне нужно запустить и распечатать отчет о доступе через vbscript или командную строку.Я смотрел во многих местах, но я остался потерянным.Мне нужно сделать это для целей автоматизации.

Answer 1

Глядя на Как использовать параметры командной строки в Microsoft Access , я не вижу возможности открыть конкретный отчет из командной строки. Однако вы можете сделать это косвенно, создав макрос для печати отчета и включив имя макроса после ключа / x в командной строке.

"Path to MSACCESS.EXE" "Path to your db file" /x YourMacroName

Я мало что делаю с макросами. Если создание макроса для печати отчета не подходит, вы можете создать для этого функцию VBA и спроектировать макрос так, чтобы он просто выполнял вашу функцию.

Если вы предпочитаете VBScript, попробуйте это. Может потребоваться работа, выходящая за пределы изменения значений констант.

Option Explicit
Dim appAccess
Const cstrFolder = "C:\Access\webforums\"
Const cstrMdb = "whiteboard2003.mdb"
Const cstrReport = "rptFoo"

Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase cstrFolder & cstrMdb, False
appAccess.DoCmd.OpenReport cstrReport, 0 ' acViewNormal = 0
appAccess.DoCmd.Close 3, cstrReport ' acReport = 3
appAccess.Quit
Set appAccess = Nothing