تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود طباعة تقارير اكسس من خلال الفيجول دوت نت 2008
#1
كاتب الموضوع : ramilove

بسم الله الرحمن الحيم

بعد عناء البحث والتعديل وبفضل من الله استعطت اني ازبط هذا الكود وهو لطباعة تقارير اكسس من خلال الفيجول دوت نت 2008

اولا يجب اضافة هذا المكتبة من خلال نافذة برنامج الفيجول 2008

Project - Add Reference - .NET

ثم اختر هذه المكتبة واضغط اوكي

Microsoft.Office.Interop.Access 12.0.0.0

بعدها انسخة هذا الكود في فضاء الاسماء


كود :
[color=#000000][COLOR=#0000bb]Imports Access [/color][color=#007700]= [/color][color=#0000bb]Microsoft[/color][color=#007700].[/color][color=#0000bb]Office[/color][color=#007700].[/color][color=#0000bb]Interop[/color][color=#007700].[/color][COLOR=#0000bb]Access  
[/COLOR][/COLOR]


بعدها انسخ هذا الكود كاملا وضعه في احد الازرار .



كود :
Try

Dim o
o = CreateObject("Access.Application")
o.automationsecurity = 1 ' فتح قاعدة البيانات بوضع امان منخفض منعا لظهور تحذير الامان.

'مسار قاعدة البيانات في مجلدات البرنامج مع وجود كلمة سر للقاعدة
o.opencurrentdatabase("" & Application.StartupPath & "\Data.mdb", bstrPassword:="12345")

'او بدون كلمة سر
'o.opencurrentdatabase("" & Application.StartupPath & "\Data.mdb")

'او اختر مسار اخر
'o.opencurrentdatabase("D:\data.mdb", bstrPassword:="12345")

'فتح في وضعية الاخفاء
o.visible = False

'طباعة التقرير بطابعة اخرى غير الافتراضية
'o.Printer = o.Application.Printers("HP LaserJet M1005")


'طباعة التقرير
o.DoCmd.OpenReport(ReportName:="Rebort1")


'طباعة مع تحديد عدد النسخ
'o.DoCmd.SelectObject(ObjectType:=Access.AcObjectType.acReport, ObjectName:="Rebort1", InDatabaseWindow:=True)
'o.DoCmd.PrintOut(PrintRange:=Access.AcPrintRange.acSelection, Copies:=2, CollateCopies:=False)

o.usercontrol = False
o.Quit()
o = Nothing


Catch ex As Exception

MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

الكود مثل ما ذكرت جربته قبل ما انزله .

في امان الله .
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] أريد كود الحفظ والتعديل والحذف في قاعدة بيانات اكسس 2007 libyan_snipe64 2 3,087 21-10-16, 11:30 PM
آخر رد: omartaz
  مثال للحفاظ على تنسيق الاداوت اثناء تكبير الفورم في الفيجول دوت نت 2008 RaggiTech 0 960 17-10-12, 08:40 PM
آخر رد: RaggiTech
  مثال للبحث عن الملفات المخفية والغير مخفية داخل الكمبيوتر في الفيجول دوت نت 2008 RaggiTech 0 369 17-10-12, 08:38 PM
آخر رد: RaggiTech
  مثال - ربط جدولين في قاعدة بيانات اكسس من خلال فيجول دوت نت 2008 RaggiTech 0 2,468 17-10-12, 08:36 PM
آخر رد: RaggiTech
  مثال - تحويل التاريخ من ميلادي الى هجري وبالعكس في الفيجول دوت نت 2008 RaggiTech 0 1,197 17-10-12, 08:34 PM
آخر رد: RaggiTech
  شرح - ترتيب العناصر في الفيجول دوت نت تصاعدي وتنازلي RaggiTech 0 911 17-10-12, 08:32 PM
آخر رد: RaggiTech
  كيفية نقل بيانات من قاعدة بيانات اكسس الى ملف اكس ام ال RaggiTech 0 897 17-10-12, 07:12 PM
آخر رد: RaggiTech
  لفتح ملف exe من خلال مشروعك C# RaggiTech 0 327 17-10-12, 05:32 PM
آخر رد: RaggiTech
  لانشاء قاعده بيانات و التعامل معها من خلال الكود RaggiTech 0 516 17-10-12, 05:24 PM
آخر رد: RaggiTech
  طباعة محتويات PictureBox RaggiTech 0 410 17-10-12, 05:09 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم