كيف اختار الطابعة

DoCmd.RunCommand acCmdPrint

 Dim prt As Printer
' تعبئة مربع السرد بالطابعات المتوفرة .
 Me!cboPrinter.RowSourceType = "Value List"
    For Each prt In Application.Printers
        Me!cboPrinter.AddItem Item:=prt.DeviceName
    Next prt

 ' للحصول على الطابعة الافتراضية.
    strDefaultPrinter = Application.Printer.DeviceName
 ' غير مربع السرد الى الطابعة الافتراضية.
    Me!cboPrinter = strDefaultPrinter

 ' احصل على كائن الطابعة حسب اختيار المستخدم من مربع السرد.
    Set prt = Application.Printers(Me!cboPrinter.Value)

  ' معاينة التقرير .
    DoCmd.OpenReport ReportName:="ReportName", View:=acViewPreview

    'تغيير طابعة التقرير المعروض الى الطابعة التى اخترناها .
    Reports(ReportName).Printer = prt

لا استطيع اعرف متغير بنوع Printer يقوم الاكسس باستخراج رساله ان النوع هذا غير متعرف في الاكسس على معتقد هذا الكود ينفس في الفيجول بيسل اذا كان عندك الحل ارجوك انقذني او اذا كان هناك إضافه من References اذكرها ولك الشكر

الأخ الكريم

ماذكره ابو لمى يعمل في الأكسس 2002 .

ولك تحياتي

اريد الحل في اكسس 2000 ، وارجوا ايضاح ماهو الفرق الجوهري بين اكسس 2000 وا اكسس 2002 علما اني لم ارى الى الان اكسس 2002 وشكرا

بعد أمر فتح التقرير في وضع المعاينة ضع السطر الذي ذكرته لك سابقا .

ولك تحياتي

اليك هذا الموقع :

http://www.mcwtech.com/downloads.htm

وسوف تجد تحتحه ملف من نوع zip بهذا العنوان

DefaultPRT.ZIP

قم بانزال هذا الملف وعلى فكره البرنامج معمول على اكسس 97 ولقد استفدت منه فعلا

وشكرا لك يابوحمود

أخي الكريم الرابط الذي أشرت به المثال DefaultPRT.ZIP لم يعمل هل عندك نسخة منه فتضع لنا رابط آخر أو هل يوجد طريقة أخرى غير النقر بالماوس اليمين ثم الحفظ الهدف بإسم لا ادري ما السبب لم أستطع تنزيل المثال عندي و لكم الشكر و التقدير

تفضل ياعزيزي

لاتنسى اضغط على الوصلة باليمين واختر حفظ باسماضغط هنا

أخي الحبيب أشكرك على تعاونك و فعلا إشتغل الرابط و المثال الذي أرسلته رائع و يفي بالغرض جزاك الله خيرا