تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعده في طباعة التقرير
#1
اخواني لدي طابعتين اريد كود لجعل الريبورت الاول يطبع في طابعة والريبورت الثاني يطبع في طابعة اخرى
ارجو الافادة
الرد
تم الشكر بواسطة: allayl
#2
متابع
الرد
تم الشكر بواسطة:
#3
ارجو الافادة
الرد
تم الشكر بواسطة:
#4
متابع نأمل الحل من اعضاء المنتدى
الرد
تم الشكر بواسطة:
#5
؟؟؟؟؟؟؟؟؟؟؟؟؟؟
الرد
تم الشكر بواسطة:
#6
لا يوجد حل لهذا الموضوع
الرد
تم الشكر بواسطة:
#7
بصراحة يا اخي لم اجرب هكذا فكرة
لكن ارى ان تظهر الطابعات والمستخدم يختار الطابعة المناسبة للطباعة
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة:
#8
السلام عليكم

- هذا السؤال تم طرحه في المنتدى القديم ,و الذي رابطه في أعلى صفحة هذا المنتدى , هذا هو الكود لعمل ذلك :

كود :
Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long


Private Sub Command1_Click()

Dim Prt As Printer
Dim Def_PrinterName As String

'تخزين إسم الطابعة الحالية في هذا المتغير
Def_PrinterName = Printer.DeviceName
DoEvents

Set DataReport1.DataSource = Adodc1
DoEvents

For Each Prt In Printers
    
    If Prt.DeviceName = "EPSON LQ-300+II ESC/P2" Or Prt.DeviceName = "Canon MF4320-4350" Then
       SetDefaultPrinter Prt.DeviceName
       DoEvents
       DataReport1.PrintReport False
       DoEvents
   End If

Next

'إستعادة الطابعة الإفتراضية
SetDefaultPrinter Def_PrinterName
DoEvents

End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: ناجي إبراهيم
#9
مشكور اخوي
طيب اذا اردنا ان تكون اسم الطابعة محدده في التكست بوكس ماهو الكود بدل هذا

If Prt.DeviceName = "HP" Then
الرد
تم الشكر بواسطة:
#10
السلام عليكم...

بالإضافة إلى ما تقدم به أخونا VB_Coder مشكوراً فإنه يمكن استعمال الكائنين Printer و Printers لضبط الطابعة الافتراضية للتطبيق دون تغيير الطابعة الافتراضية للنظام (لاحظ أننا نستعمل الخاصية DeviceName التي تعطي الاسم الصحيح الكامل للطابعة):

كود :
Dim Prn As Printer

For Each Prn In Printers
    If UCase$(Prn.DeviceName) = UCase$("hp LaserJet 1010") Then
        Set Printer = Prn    ' اضبط الطابعة الافتراضية
        Exit For                  ' اخرج من الحلقة
    End If
Next

و تبديل الطابعات حسب الحاجة:

كود :
Dim Prn As Printer
Dim Printer1 As Printer    ' الطابعة الأولى
Dim Printer2 As Printer    ' الطابعة الثانية
    
For Each Prn In Printers
    If UCase$(Prn.DeviceName) = UCase$("hp LaserJet 1010") Then
        Set Printer1 = Prn
    ElseIf UCase$(Prn.DeviceName) = UCase$("hp psc 1310 series") Then
        Set Printer2 = Prn
    End If
Next

Set Printer = Printer1    ' اختر الطابعة الأولى
DataReport1.PrintReport False    ' اطبع التقرير الأول

Set Printer = Printer2    ' اختر الطابعة الثانية
DataReport2.PrintReport False    ' اطبع التقرير الثاني

* ملاحظة: بدل تكرار كود البحث عن الطابعتين كلما أردت الطباعة، يمكنك جعل المتغيرين Printer1 و Printer2 عامين (Public) في Module و ضبطهما عند بداية تشغيل البرنامج ثم استعمالهما حسب الحاجة (كما في الأسطر الأربعة الأخيرة في الكود السابق).

أخيراً، و للحصول على قائمة بأسماء الطابعات (في ListBox مثلاً):

كود :
Dim Prn As Printer
    
For Each Prn In Printers
    List1.AddItem Prn.DeviceName
Next

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
تم الشكر بواسطة: VB_Coder , allayl


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير mido790006 4 65 , 03:24 AM
آخر رد: mido790006
  طباعة بيانات الطلبة في الفليكس قريد مصمم هاوي 1 226 11-04-21, 01:58 AM
آخر رد: مصمم هاوي
  اخوانى الاحباب ارجو المساعدة للاهمية جزاكم الله خيرا mhareek 19 970 10-03-21, 10:47 PM
آخر رد: mhareek
  مشكلة عدم ظهور البيانات في التقرير ahmed201 8 829 25-02-21, 09:27 PM
آخر رد: ahmed201
  مشكلة في تنسيق النسبة المئوية في التقرير مصمم هاوي 10 721 22-02-21, 09:19 PM
آخر رد: Ahmed_Mansoor
  [سؤال] مشكلة طباعة في Activereport basset87 6 598 17-02-21, 11:04 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] الرجاء المساعده كيفيه ربط الكرستال ريبورت 9.2 مع الفجوال بيسك 6 زياد البركاني 1 347 16-12-20, 11:47 AM
آخر رد: السيد الغالي
  [vb6.0] الرجاء المساعده كيفيه ربط الكرستال ريبورت 9.2 مع الفجوال بيسك 6 زياد البركاني 0 214 02-12-20, 03:06 AM
آخر رد: زياد البركاني
  اخوانى الاحباب ارجو المساعدة للاهمية جزاكم الله خيرا mhareek 2 254 30-11-20, 11:53 PM
آخر رد: mhareek
  اخونى الاحباب ارجو المساعدة فى موضوع الطباعة المباشرة mhareek 3 426 28-11-20, 11:04 PM
آخر رد: sendbad100

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


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