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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,404 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
Wink [vb6.0] كيفيه تحويل الطباعة بي دي اف حامد محمد 6 3,432 18-04-19, 03:29 AM
آخر رد: حامد محمد
  [سؤال] المساعدة في تقريب الارقام عمور2016 5 3,311 30-01-19, 07:44 PM
آخر رد: sendbad100
  سؤال : زر الطباعة في التقرير لا يعمل mh66 5 3,666 20-11-18, 12:23 PM
آخر رد: awidan76
  [vb6.0] أرجو المساعدة بتتمة المشروع سمير الجبالي 6 2,852 14-07-18, 11:28 PM
آخر رد: سمير الجبالي
Photo [سؤال] ارجو المساعدة تحويل الارقام في الاكتيف ريبورت حامد محمد 8 3,822 10-05-18, 04:44 AM
آخر رد: حامد محمد
  [كود] سؤال بخصوص الطباعة عمور2016 5 2,762 05-04-18, 04:26 PM
آخر رد: عمور2016
  المساعدة بخصوص استدعاء كود من ملف نصي VB.NET 3 2,688 10-03-18, 03:50 PM
آخر رد: عبد العزيز البسكري
  ارجو المساعدة في اوامر check بدلا من listbox1 amer2000 5 2,508 23-02-18, 11:44 PM
آخر رد: awidan76

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


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