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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في تجميع مسحوبات كل صنف للعميل nourmandour 4 236 30-05-17, 03:40 PM
آخر رد: Ahmed_Mansoor
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 521 14-05-17, 06:03 PM
آخر رد: nourmandour
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 174 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 446 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 393 15-04-17, 04:13 AM
آخر رد: sendbad100
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 298 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 352 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 657 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [vb6.0] ارجو التعديل amer2000 2 379 08-08-16, 03:02 PM
آخر رد: amer2000
Smile ارجو المساعده العاجله منكم استايل 8 530 23-07-16, 04:53 AM
آخر رد: استايل

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


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