تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] معلومة هامه في ActiveReport هل تريد طباعة على وجهين انظر الى الصوره المرفقه Microformt 0 107 07-01-24, 11:32 PM
آخر رد: Microformt
  [vb6.0] ريد كود طيع التقرير نسختين علماً انني استخدم برنامج Active Report ؟ Microformt 2 358 12-11-23, 05:05 PM
آخر رد: Microformt
Information [vb6.0] كيف اجعل الارقم في التقرير باء الغه الانجليزية حتى لو كان نظام الارقام في الويندوز Microformt 0 179 16-08-23, 10:41 AM
آخر رد: Microformt
  اخوانى الاحباب ارجو المساعدة فى كود النسخ واللصق mhareek 1 404 15-07-23, 02:28 PM
آخر رد: Amir_Alzubidy
  السلام عليكم احبابى ارجو ان تكونو بخير ارجو المساعد فى عمل رابط mhareek 4 506 28-05-23, 12:33 PM
آخر رد: mhareek
Photo [vb6.0] هناك مشكله اكتيف ريبورت يحث يظهر الخط عند عرض التقرير بشكل مكبر ومد في الحرف ؟؟ Microformt 7 768 03-02-23, 01:55 PM
آخر رد: Taha Okla
  [كود] اريد المساعده mohamed memoo 0 370 01-12-22, 07:23 PM
آخر رد: mohamed memoo
  [vb6.0] ارجو المساعدة في حل هذه المسألة سويلم 1 673 03-09-22, 04:52 PM
آخر رد: سويلم
  [vb6.0] اختيار اسم الزبون من الكومبو بوكس لغرض طباعة تقريره وادي العوضي 4 1,294 15-01-22, 06:13 PM
آخر رد: وادي العوضي
  [vb6.0] ارجو التعديل على كود الطباعه ragab_most 3 951 14-11-21, 04:45 AM
آخر رد: ragab_most

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


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