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

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اهدي اليكم طريقة الاتصال بقاعدة البيانات عن طريقة المشاركه بدون تعديل كود الاتصال ahmed201 1 199 25-03-21, 11:35 AM
آخر رد: رضوان الجماعي
  تغير لون Field بناء على قيمة معينة مصمم هاوي 1 163 05-01-21, 10:33 PM
آخر رد: 62531
  اخونى الاحباب ارجو المساعدة فى موضوع الطباعة المباشرة mhareek 3 331 28-11-20, 11:04 PM
آخر رد: sendbad100
  سؤال حول الطباعة abde6726 2 362 16-11-20, 11:17 PM
آخر رد: abde6726
  طلب طريقة استخدم طابعة بطابقة في الفيجوال بيسك6 ahmed250 2 485 07-08-20, 09:51 AM
آخر رد: ahmed250
  تعديل كود تحديث مخزن الكتب بعد الإعارة مصمم هاوي 7 813 07-08-20, 08:16 AM
آخر رد: Ahmed_Mansoor
  السلام عليكم احبابى فى الله بالنسبة لامر الطباعة mhareek 1 426 30-07-20, 07:01 PM
آخر رد: aenisVB
Question [سؤال] في الطباعة على الطابعة الافتراضية للبرنامج allayl 3 2,313 27-06-20, 02:04 AM
آخر رد: hamedi2727
  طلب كود طابعة الصوره ahmed250 7 858 26-06-20, 05:26 PM
آخر رد: ahmed250
  طلب تعديل كواد زر اختصار الصنف في شاشة المبيعات ahmed250 2 560 03-06-20, 03:14 PM
آخر رد: ahmed250

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


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