تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
للطباعة مباشرة على الطابعة
#1
السلام عليكم

هذا الكود يستخدم للطباعة على طابعات الكاش الصغيرة

PHP كود :
Public Sub pri()
' تحديد الطابعة المستخدمة
 Dim prnprinter As Printer
 For Each prnprinter In Printers
 If prnprinter.DeviceName = "PRP-080" Then
 Exit For
 End If
 Next
 Set Printer = prnprinter
Printer.RightToLeft = True
Printer.FontName = "time new roman"
Printer.FontSize = 15
Printer.FontBold = True
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print "Delivery Invoice"
Printer.CurrentX = 0
Printer.CurrentY = 400
Printer.Print Text38.Text
Printer.CurrentX = 0
Printer.CurrentY = 800
Printer.Print Text39.Text
Printer.FontBold = False
Printer.CurrentX = 0
Printer.CurrentY = 1200
Printer.Print Text41.Text
Printer.CurrentX = 0
Printer.CurrentY = 1200
Printer.Print Text42.Text
Printer.FontBold = True
Printer.CurrentX = 300
Printer.CurrentY = 1700
Printer.Print "C???U? "
Printer.CurrentX = 1500
Printer.CurrentY = 1700
Printer.Print "C????UE "
Printer.CurrentX = 2300
Printer.CurrentY = 1700
Printer.Print "C???U? "
Printer.FontSize = 10
x = 1700
b = 0
Do
  b = b + 1
  x = x + 300
  g1.col = 0
  g1.Row = b
  Printer.CurrentX = 100
  Printer.CurrentY = x
  Printer.Print g1.Text
  g1.col = 1
  g1.Row = b
  Printer.CurrentX = 1600
  Printer.CurrentY = x
  Printer.Print g1.Text
  g1.col = 2
  g1.Row = b
  Printer.CurrentX = 2500
  Printer.CurrentY = x
  Printer.Print g1.Text
  If b = Val(Text8) Then
    Printer.FontSize = 15
    Printer.FontBold = False
    Printer.CurrentX = 100
    Printer.CurrentY = x + 500
    Printer.FontSize = 15
    Printer.FontBold = True
    Printer.Print "C?C??UUC?U?"
    Printer.CurrentX = 2000
    Printer.CurrentY = x + 500
    Printer.Print Text5.Text
    Printer.FontSize = 8
    Printer.FontBold = False
    Printer.CurrentX = 100
    Printer.CurrentY = x + 1000
    Printer.Print Label6.Caption
    Printer.CurrentX = 1500
    Printer.CurrentY = x + 1000
    Printer.Print Label5.Caption
    Printer.CurrentX = 100
    Printer.CurrentY = x + 1500
   ' 
Printer.Print "C?C??UC? OC??E ???EE C??E??UCE"
 
   Printer.EndDoc
    
'For Each prnprinter In Printers
    ' 
If prnprinter.DeviceName "Epson LQ-300 ESC/P 2" Then
    
'   Exit For
    ' 
End If
 
   'Next
    '
Set Printer prnprinter
    
'Printer.Print
    '
Printer.EndDoc
    Exit Sub
  End 
If
Loop Until b Val(Text8)
End Sub 

يعطيكم العافية
شـــايـفـــك

الرد }}}}
#2
بارك الله فيكم و جزاكم الله خير الجزاء
سأعود قريباً ان شاء الله

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 429 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  ارجو المساعد في مشروع منفذ الطابعة vb6.0 جمال موسي 3 514 16-12-12, 08:12 PM
آخر رد: Ahmad Jawad

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


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