منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اخواني ارجو المساعدة في كود الطباعة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اخواني ارجو المساعدة في كود الطباعة (/showthread.php?tid=7894)

اخواني ارجو المساعدة في كود الطباعة - علوش - 10-03-13

يوجد لدي عدد 2 طابعة شبكة ولكل طابعة ايبي خاص فيها وتقرير كيف اجعل التقرير يطبع في الطابعتين في نفس الوقت
التقرير datareport

اخواني ارجو المساعدة في كود الطباعة - VB_Coder - 11-03-13

السلام عليكم

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

- تحياتي .