کار با یک برنامه اکسس ازداخل یک برنامه دیگه اکسس [بایگانی]

moustafa

سه شنبه 16 خرداد 1385, 15:34 عصر

Dim myobj as object
Set myobj =crateobject("Access.Applications")
myobj.opencurrentdtabase(f:\text1)
myobj.Docmd.OpenReport "rpt1" ,acViewNormal
myobj.close
Set myobj =nothing
بااستفاده از کد فوق گزارش rpt1 از برنامه text1 از در مسیرf چاپ میشه بدون انکه شما ان برنامه راباز کنید
پسوند mdeیا mdb باید در اخر نام فایل باشه