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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 57 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 184 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 229 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [vb6.0] ارجو التعديل amer2000 2 193 08-08-16, 03:02 PM
آخر رد: amer2000
Smile ارجو المساعده العاجله منكم استايل 8 303 23-07-16, 04:53 AM
آخر رد: استايل
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 220 10-07-16, 12:26 PM
آخر رد: عمور2016
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 946 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 232 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  سؤال : زر الطباعة في التقرير لا يعمل mh66 4 767 03-03-16, 10:59 AM
آخر رد: محمود العجيري
  [vb6.0] أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected k_medhat 6 540 04-02-16, 04:07 AM
آخر رد: gadr

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


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