تقييم الموضوع :
  • 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 ك ب / التحميلات : 6)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 1 162 24-06-21, 12:13 PM
آخر رد: مصمم هاوي
  تعديل كود أظهار بيانات الحضور والغياب مصمم هاوي 3 420 09-05-21, 01:06 AM
آخر رد: مصمم هاوي
  اهدي اليكم طريقة الاتصال بقاعدة البيانات عن طريقة المشاركه بدون تعديل كود الاتصال ahmed201 1 377 25-03-21, 11:35 AM
آخر رد: رضوان الجماعي
  تغير لون Field بناء على قيمة معينة مصمم هاوي 1 262 05-01-21, 10:33 PM
آخر رد: 62531
  اخونى الاحباب ارجو المساعدة فى موضوع الطباعة المباشرة mhareek 3 485 28-11-20, 11:04 PM
آخر رد: sendbad100
  سؤال حول الطباعة abde6726 2 506 16-11-20, 11:17 PM
آخر رد: abde6726
  طلب طريقة استخدم طابعة بطابقة في الفيجوال بيسك6 ahmed250 2 629 07-08-20, 09:51 AM
آخر رد: ahmed250
  تعديل كود تحديث مخزن الكتب بعد الإعارة مصمم هاوي 7 1,019 07-08-20, 08:16 AM
آخر رد: Ahmed_Mansoor
  السلام عليكم احبابى فى الله بالنسبة لامر الطباعة mhareek 1 537 30-07-20, 07:01 PM
آخر رد: aenisVB
Question [سؤال] في الطباعة على الطابعة الافتراضية للبرنامج allayl 3 2,507 27-06-20, 02:04 AM
آخر رد: hamedi2727

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


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