تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] تعديل كود الطباعة من منفذ com1 الى طابعة معينة او منفذ usb.
#1
الكود التالى يحدد الطباعة من خلال منفذ com1  ما هو التعديل المطلوب للطباعة من منفذ usb  والأفضل تحديد اسم طابعة معينة مثلا zt410 باستخدام منفذ usb  او كابل شبكة (IP for printer 192.168.100.95).


Private Sub CMD_Print_Click()
On Error GoTo errhandler
 
 Dim B$, CR$, SX$, EX$
 Dim heatno As String
 Dim i As Integer
 Dim str As String
 Dim BarcodeValue As String
 Dim rs As New ADODB.Recordset
 rs.LockType = adLockOptimistic
 rs.CursorType = adOpenKeyset
 
 
Comm1.CommPort = GetSetting("Shipping", "setting", "comport")
Comm1.settings = GetSetting("Shipping", "setting", "connection")
heatno = GetSetting("Shipping", "setting", "heat")
 
 
rs.Open str, cn
If rs.EOF = False Then
 
 If Comm1.PortOpen = False Then
    Comm1.PortOpen = True
 End If
 
 CR$ = Chr$(13)
 SX$ = Chr$(2)
 EX$ = Chr$(3)
 
 B$ = SX$ + "L" + CR$
 Comm1.Output = B$
 
 B$ = "D11" + CR$
 Comm1.Output = B$
 
B$ = "H" + heatno
Comm1.Output = B$ + CR$
 
B$ = "491100401500130" + txtProductName + CR$
Comm1.Output = B$
 
B$ = "491100401500165" + txtAlloy_Temp + CR$
Comm1.Output = B$
 
 
If Trim(cmbPrintType) = "mm" Then
    B$ = "491100401300200" + Trim(rs!PTH) + "*" + Trim(rs!PWidth) + "*" + Trim(rs!Plength) + " mm" + CR$ 'Size
    Comm1.Output = B$
Else
    B$ = "491100401300200" + Trim(rs!Pthin) + "*" + Trim(rs!pwidthin) + "*" + Trim(rs!Plengthin) + " In" + CR$ 'Size
    Comm1.Output = B$
End If
 
B$ = "491100401500235" + CmbMeltNo + CR$    'Melt No.
Comm1.Output = B$
 
Comm1.Output = "4E6200000200340" & BarcodeValue
Comm1.Output = CR$
 
B$ = "Q" + Trim(Format(Val(Me.txtqty.Text), "0000")) + CR$
Comm1.Output = B$
                
B$ = "E"
Comm1.Output = B$
 
End If
rs.Close
 
If Comm1.PortOpen = True Then
 Comm1.PortOpen = False
End If
 
Exit Sub
errhandler:
MsgBox Err.Description
 
End Sub

الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم 
في المشروع المرفق يمكنك تحديد الطابعة الافترضية من قائمة الطابعات المعرفة على جهازك


الملفات المرفقة
.rar   تحديد الطابعة.rar (الحجم : 1.66 ك ب / التحميلات : 45)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  الاشارة الى خلية معينة فى الداتاجريد اسلام الكبابى 0 416 22-11-22, 10:08 PM
آخر رد: اسلام الكبابى
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 3 1,228 12-10-22, 07:36 PM
آخر رد: مصمم هاوي
  البرنامج بيهنج(AppCrash) عند الطباعة عبدالله الصافي 6 894 26-09-22, 07:25 PM
آخر رد: عبدالله الصافي
  تعديل على كود استدعاء بيانات محددة من ثلاث جداول مصمم هاوي 11 5,198 14-09-22, 11:49 PM
آخر رد: رضوان الجماعي
  تعديل ترتيب أرقام الصفحات تصاعدياً مصمم هاوي 3 845 13-07-22, 03:20 AM
آخر رد: مصمم هاوي
  تعديل كود نهى علي 2 759 13-05-22, 12:01 AM
آخر رد: نهى علي
  تعديل على كود المجموع مصمم هاوي 0 751 03-03-22, 08:46 PM
آخر رد: مصمم هاوي
  تعديل كود الدرجات المحصورة بين عددين مصمم هاوي 7 1,429 10-12-21, 07:10 PM
آخر رد: مصمم هاوي
  استفسار بخصوص الطباعة lkjnfg 10 1,777 11-11-21, 01:49 PM
آخر رد: lkjnfg

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


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