17-10-16, 03:50 PM
السلام عليكم
هذا الكود يستخدم للطباعة على طابعات الكاش الصغيرة
يعطيكم العافية
هذا الكود يستخدم للطباعة على طابعات الكاش الصغيرة
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
يعطيكم العافية