Wincc VBS(VBScript) for MS Access Data Report

MS Access table >> MS Access Data Report

This script is useful in generating report from MS Access table using MS Access Data Report. Here no other reporting tool(such as crystal reports) required. Softwares such as dopdf, cutepdf etc will help for printing the report in .PDF format.

This script is common for Wincc Advanced, Wincc Professional. For Wincc 7.x the tag declaration will change

Dim db
Dim rpt 
Dim ctl 
Set db = CreateObject("Access.Application")  
db.OpenCurrentDatabase "D:\DATENSRJ\Database1.mdb", True
db.Visible = True
db.DoCmd.OpenReport "Temperature_Report"
db.DoCmd.Maximize
Set rpt = Nothing
db.CloseCurrentDatabase