تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اخواني ارجو المساعدة في كود الطباعة
#1
يوجد لدي عدد 2 طابعة شبكة ولكل طابعة ايبي خاص فيها وتقرير كيف اجعل التقرير يطبع في الطابعتين في نفس الوقت
التقرير datareport
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- إستخدم الطريقة كما في هذا الكود :
كود :
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

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

- تحياتي .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 97 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 102 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [vb6.0] ارجو التعديل amer2000 2 132 08-08-16, 03:02 PM
آخر رد: amer2000
Smile ارجو المساعده العاجله منكم استايل 8 184 23-07-16, 04:53 AM
آخر رد: استايل
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 140 10-07-16, 12:26 PM
آخر رد: عمور2016
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 788 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 163 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  سؤال : زر الطباعة في التقرير لا يعمل mh66 4 675 03-03-16, 10:59 AM
آخر رد: محمود العجيري
  [vb6.0] أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected k_medhat 6 406 04-02-16, 04:07 AM
آخر رد: gadr
  الرجاء المساعدة في كود التاريخ wolf1120 4 712 31-12-15, 01:16 AM
آخر رد: awidan76

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


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