Code:
Open "lpt1:" For Output As #2
Print #2, Chr(27) & " 0"
Print #2, Chr$(27) & Chr$(79)
Print #2, Chr(27) & Chr(48)
For i = 1 To 7
' Direction Roll Backward
Print #2, Chr$(27) & Chr$(106) & "3"
Next
Print #2, Chr(27) & Chr(64) ' Initialize Printer
Close #2
Open "C:\tranfees.txt" For Output As #1
' Open "E:\SAS\Acafee.doc" For Output As 1 '\\HOME\
Print #1, Chr(27) & "0"
Print #1, Chr$(27) + "j" + Chr$(255)
Print #1, Chr(27) & Chr(49)
ts = String(130, " ")
Mid(ts, 15) = "Cash Receipt"
Print #1, ts
Print #1,
ts = String(130, " ")
'Mid(ts, 5) = "Our Lady of Health Matriculation School,"
' Mid(ts, 10) = "C S " & vbCrLf & " MATRICULATION HR.SEC.SCHOOL"
Mid(ts, 6) = "C S MATRICULATION HR.SEC.SCHOOL"
Print #1, ts
ts = String(130, " ")
Mid(ts, 7) = "Bye Pass Road, Mariammankovil,"
Print #1, ts
ts = String(130, " ")
Mid(ts, 10) = " Thanjavur - 613 501."
Print #1, ts
Print #1,
ts = String(130, " ")
Mid(ts, 26) = "No : "
Mid(ts, 30) = Val(Text3.Text)
Print #1, ts
ts = String(130, " ")
Mid(ts, 24) = "Date : "
Mid(ts, 30) = Format(DTPicker1.Value, "dd/MM/yyyy")
Print #1, ts
Print #1,
' t = InStr(1, Label32.Caption, "&")
' c = Mid(Label32.Caption, 1, t - 1)
' s = Mid(Label32.Caption, t + 1, Len(Label32.Caption))
' Trim (c)
' Trim (s)
ts = String(130, " ")
Mid(ts, 3) = "Class : "
Mid(ts, 18) = Label50.Caption
Print #1, ts
'Print #1,
ts = String(130, " ")
Mid(ts, 3) = "Section :"
Mid(ts, 18) = Label51.Caption
Print #1, ts
'Print #1,
ts = String(130, " ")
Mid(ts, 3) = "Student Name : "
Mid(ts, 18) = Trim(Label7.Caption)
Print #1, ts
'Print #1,
' ts = String(130, " ")
' Mid(ts, 1) = "Student Id"
' Mid(ts, 20) = Trim(Label7.Caption)
' Print #1, ts
'Print #1,
ts = String(130, " ")
Mid(ts, 3) = "------------------------------------------"
Print #1, ts
ts = String(130, " ")
Mid(ts, 3) = "Particulars"
Mid(ts, 33) = "Amount"
Print #1, ts
ts = String(130, " ")
Mid(ts, 3) = "------------------------------------------"
Print #1, ts
Print #1,
For i = 1 To ListView1.ListItems.Count
ts = String(130, " ")
Mid(ts, 3) = Trim(ListView1.ListItems.Item(i).SubItems(1))
Mid(ts, Val(39) - Len(Format(Val(ListView1.ListItems.Item(i).SubItems(3)), "0.00"))) = Format(Val(ListView1.ListItems.Item(i).SubItems(3)), "0.00")
Print #1, ts
Print #1,
Next i
ts = String(130, " ")
Mid(ts, 3) = "------------------------------------------"
Print #1, ts
ts = String(130, " ")
Mid(ts, 14) = "Total : "
Mid(ts, Val(39) - Len(Format(Val(a), "0.00"))) = Format(Val(a), "0.00")
Print #1, ts
ts = String(130, " ")
Mid(ts, 3) = "------------------------------------------"
Print #1, ts
Print #1,
ts = String(130, " ")
Mid(ts, 25) = "For Principal"
Print #1, ts
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Close #1
' Shell "write.exe " & App.Path & "\Acafee.doc", vbMaximizedFocus
' Shell "write.exe E:\SAS\Acafee.doc", vbMaximizedFocus '\\HOME\
Dim e As Variant
''Dim pr As Variant
e = Shell("C:\tranfees.bat")
Comment