Access - Automatsko štampanje izveštaja u zadato vreme

Verovatno vam nikada na pamet nije pala ideja povezivanja Access-a i Windows Scripting Host-a (o WSH-u smo pisali u jednom od pređašnjih priloga). Povezivanjem WSH-a sa izvršnim vbScript fajlom (koga pokreće WSH), u kombinaciji sa Windows Task Scheduler-om, možete podesiti da se vaši Access izveštaji automatski štampaju u određeno vreme. Da bi ovo bilo moguće, potrebno je da kreiramo vbscript (ili Jscript fajl, koji takođe podržava WSH) i pokrenemo ga koristeći skript endžin cscript.exe, iz Task Scheduler-a.

Da biste pokrenuli skript iz Task scheduler-a, selektujte samo cscript.exe kada inicijalno podešavate novi zadatak (task). Zatim, kada podesite novi task, modifikujte ga i dodajte putanju do skript fajla, tako što ćete putanju do vbscript fajla smestiti unutar navodnika. Kao na primer:

  cscript.exe "c:\moji skriptovi\
  
stampa_izvestaja.vbs"

Nakon ovog podešavanja, potrebno je još samo kreirati skript fajl. Sledeći programski kod preko bilo kog tekst editora smestite u novi fajl i snimite ga pod nazivom stampa_izvestaja.vbs:

'-------------------Pocetak skript koda-------
'Windows Scripting Host Script, za Win 95/98/NT/2000
'Kompatibilno sa WSH-om  verzije 1 i 2
'Moze se pokrenuti i iz komandne linije

 koriscenjem cscript.exe endzina
'Pozovite cscript.exe iz Windows Scheduler-a
'-------------------------------------------
On error resume next
call RunReport("c:\moji skriptovi\baza.mdb",
"Izvestaji1")

Function RunReport
            (strPutanjaDoBaze, strImeIzvestaja)
    On Error Resume Next
     Dim objDb
     Set objDb = CreateObject
                ("Access.Application")
     objDb.Visible = True 
     objDb.OpenCurrentDatabase (strPutanjaDoBaze)
    objDb.Docmd.OpenReport strImeIzvestaja, 0 
    DoEvents
    objDb.CloseCurrentDatabase
    objDb.Quit
End Function