تقييم الموضوع :
  • 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 3 16,150 09-11-21, 03:13 AM
آخر رد: abdalaziz224
  تشغيل برنامج او باتش من خلال كود الفي بي -- الطريقه الاولي RaggiTech 1 2,661 20-12-20, 01:06 AM
آخر رد: سعود
  مثال للحفاظ على تنسيق الاداوت اثناء تكبير الفورم في الفيجول دوت نت 2008 RaggiTech 0 3,488 17-10-12, 08:40 PM
آخر رد: RaggiTech
  مثال للبحث عن الملفات المخفية والغير مخفية داخل الكمبيوتر في الفيجول دوت نت 2008 RaggiTech 0 2,479 17-10-12, 08:38 PM
آخر رد: RaggiTech
  مثال - ربط جدولين في قاعدة بيانات اكسس من خلال فيجول دوت نت 2008 RaggiTech 0 7,075 17-10-12, 08:36 PM
آخر رد: RaggiTech
  مثال - تحويل التاريخ من ميلادي الى هجري وبالعكس في الفيجول دوت نت 2008 RaggiTech 0 4,695 17-10-12, 08:34 PM
آخر رد: RaggiTech
  شرح - ترتيب العناصر في الفيجول دوت نت تصاعدي وتنازلي RaggiTech 0 2,824 17-10-12, 08:32 PM
آخر رد: RaggiTech
  كيفية نقل بيانات من قاعدة بيانات اكسس الى ملف اكس ام ال RaggiTech 0 3,161 17-10-12, 07:12 PM
آخر رد: RaggiTech
  لفتح ملف exe من خلال مشروعك C# RaggiTech 0 1,881 17-10-12, 05:32 PM
آخر رد: RaggiTech
  لانشاء قاعده بيانات و التعامل معها من خلال الكود RaggiTech 0 2,690 17-10-12, 05:24 PM
آخر رد: RaggiTech

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


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