هل يمكن طباعة تقرير بدون فتح قاعدة البيانات

[مهند عبادي]

السلام عليكم

من المعروف أنه في Word يمكن طباعة الملف بدون فتحه ...

سؤالي : هل يمكن طباعة تقرير معين في ملف أكسس دون فتحه ؟؟

[محمد طاهر عرفه]

وجدت هذا الكود لدي و لم أجربه ، و يبدو أنه يمكن التحكم بين العرض و الطباعة من المتغير الاخير

 
Sub PrintAccessReport(dbname As String, rptname As String, preview As Boolean) 
Dim objAccess As Object 
On Error GoTo PrintAccessReport_ErrHandler 
Set objAccess = CreateObject("Access.Application") 
With objAccess 
.OpenCurrentDatabase filepath:=dbname 
If preview Then 'Preview report on screen. 
.Visible = True 
.DoCmd.OpenReport reportname:=rptname, view:=Access.acPreview 
Else 'Print report to printer. 
.DoCmd.OpenReport reportname:=rptname, view:=Access.acNormal 
DoEvents 'Allow report to be sent to printer. 
else 
Msgbox "Logic Error" 
End If 
End With 
Set objAccess = Nothing 
Exit Sub 

PrintAccessReport_ErrHandler: 
MsgBox Error$(), , "Print Access Report" 
End Sub

[مهند عبادي]

مشكور أخي محمد طاهر ..

هذا الـSub على ما أرى لطباعة تقرير موجود في قاعدة بيانات أخرى .. وهو مهم جداً

والذي أبحث عنه شيء آخر وهو طباعة التقرير بدون أن أفتح أي قاعدة بيانات من الأساس .. يعني من سطح المكتب أكتب في سطر التعليمات صيغة ما لطباعة التقرير الذي أريده

تحياتي لك

[محمد طاهر عرفه]

السلام عليكم

نظريا يمكن اضافة الامر

/x macro

الي ال Startup command-line

و ذلك لتشغيل ماكرو معين

و يمكن أن تجعل الماكرو يفتح أو يطبع التقرير

مع تحياتي

[مهند عبادي]

لقد جربت أ، أعمل ماكرو يفتح نموذج معين وأسميت هذا الماكرو m

وكتبت السطر التالي :

E:\Test.mdb /x m

فتم فتح قاعدة البيانات ولم يتم تنفيذ الماكرو ؟!! ما المشكلة ؟؟

[محمد طاهر عرفه]

السلام عليكم

قد يكون استخدام ال

Data access Pages

أكثر مناسبة لما تريد

و بالنسبة للاقتراح السابق :

في الاختصار ضع المسار كالتالي :

بحسب المسارات لديك مسار الملف التنفيذي - مسافة - مسار الملف ثم الخيار الاضافي

مثال :

"E:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\db1.mdb" /x macro1

و في الماكرو

ضع طباعة التقرير

و يليه أمر Quit

أو ان كنت تريد المشاهدة

لا تضع Quit فى الماكرو

ضع فى حدث عند الغلق للتقرير

Docmd.quit

مع تحياتي

[مهند عبادي]

أشكرك أخي محمد طاهر ..

الآن أستطيع أن أعمل اختصارات توضع في مجلد البرنامج بعد تنزيله بالـ Setup تعطي خيارات فتح نماذج معينة بحد ذاتها أو طباعة التقارير التي أريدها

والأهم من هذا .. أنني في البرامج التي أعملها في VB سأستغني عن الـ Cristal Report