اختيار اسم الطابعة عند طباعة تقرير

[علي المصري]

انا عامل برنامج لطباعة الملصقات

حيث تكون الورقة A4 مقسمة إلى 8 أجزاء أو 16 جزء ( ملصق )

 

ولكن صادفتني مشكلة عند نقل الملف على جهاز آخر

عند الطباعة يكون آخر جزئين انتقلا للصفح التالية

والآن أعمل على التصحيح

 

كما انني اريد كود للطباعة بحيث عند الضغط على زر الطباعة يظهر مربع حواري به اسماء الطابعات الموجودة على جهازي ومن ثم اختار منها

 

لكم جزيل الشكر

حيث يرجع الفضل لتعلمي الاكسيس لله أولا  ً ثم موقعكم الكريم والاخوة الافاضل اعضاء المنتدى

 

16 Lable Arabic & English-.rar

[أواب]

الاخ الكريم

عند الطباعة اضغط

ctrl+p

[علي المصري]

شكرا

ولمن هذا الاختصار يستخدم عندما يكون التقرير مفتوح بالفعل

اما ما اريد هو عند الضغط على زر الامر

يظهر مربع حواري به اسماء الطابعات ثم اختار منها للطباعة

[أبا عمر]

السلام عليكم ورحمة _الله_ وبركاته
تفضل أستاذي الكريم علي لعل هذا ما تريده
XX.rar

[علي المصري]

شكرا جزيلا ابا عمر

فعلا هذا ما كنت اريده

 

ولكني دمجت الوحدة النمطية مع امر الزر ليصبح امر واحد لا يعتمد على الوحدة النمطية بخاصية call

 

واصبح امر الزر كما يلي

Private Sub ÃãÑ0_Click()
DoCmd.OpenReport "r_x", acViewPreview
On Error GoTo ErrorTrap
   DoCmd.RunCommand acCmdPrint
   DoCmd.Close acReport, "r_X"
ErrorTrap:
   If err.number = 2501 Then
   DoCmd.Close acReport, "r_X"
   Else
   MsgBox err.number & vbCrLf & err.Description
   End If

End Sub

ودا بعد اذنك طبعا

شكرة مرة اخري

تم تعديل نوفمبر 9, 2013 بواسطه علي المصري

[علي المصري]

سوف اعمل به وارى يعطى نتائج سلبية على هذا التعديل ام لا

[علي المصري]

السلام عليكم ورحمة الله وبركاته

سؤال للعمالقة :

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

يعني مثلا :

انا عامل الطابعة الافتراضية هي Deskjet 1400   والمطلوب من الكود في حالة تشغيل الاكسس يقوم بعمل إحدى الطابعات الليزر المثبته على الجهاز هي الافتراضية - او يظهر مربع حواري يمكنني من اختيار الطابعة التي اريدها من الطابعات الليزر وعند غلق الاكسس ترجع الطابعة الافتراضية السابقة

 

سؤال يحتاج دراسة

فهل من مجيب ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[ابوخليل]

هذا الموضوع تجد فيه بغيتك

http://www.officena.net/ib/index.php?showtopic=49880

[علي المصري]

شكرا اخي الكريم

 

هل يمكن التعديل بحيث يكون هذا الامر بمجرد تشغيل الاكسيس تظهر رسالة تفيد

أي من الطابعات التالية تريها افتراضية

1

2

3

وبعد الاختيار تبدأ قاعدة البيانات بالعمل

 

 

 

شكرا

[أبو آدم]

أخي علي

ارجو ان تستفيد من هذا الرابط

http://www.officena.net/ib/index.php?showtopic=41998&hl

[أبو آدم]

اخوتي الفضلاء

في التقرير و في حدث عند الفتح

Private Sub Report_Open(Cancel As Integer)
Dim prtDefault As Printer
 
Set Application.Printer = Application.Printers("Microsoft Office Document Image Writer")
 
Set prtDefault = Application.Printer
End Sub

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

Private Sub Report_Close()
  Call fResetDefaultPrinter
End Sub

مستعينين بالوظيفة

Public Function fResetDefaultPrinter()
Dim prtDefault As Printer
 
Set Application.Printer = Application.Printers("<Default Printer Name>")
 
Set prtDefault = Application.Printer
End Function

بسيطة ... والله أعلم