Hi to all,
This is the first time i can use barcode..anyone can suggest how to use coding () in VB.Net..
Private Sub Button3_Click(print_click)(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Actual VB6 Coding for the same module is..
Private Sub BTNPRINT_Click()
Dim cur_dat_tim As String
Dim copy As Integer
copy = txtcopy.Text
ipid = txtempid.Text
patient = txtemployeename.Text
age = txtage.Text
sex = txtsex.Text
doctor = txtdepartmentname.Text
SQL = "regd_regdetail_ipid " & txtempid.Text & " "
If rs.State Then rs.Close
rs.Open SQL, DBC, adOpenDynamic, adLockOptimistic
Open "lpt1:" For Output As #1
Print #1, "^Q25,1"
Print #1, "^W45"
Print #1, "^H10"
Print #1, "^P1"
Print #1, "^S4"
Print #1, "^AT"
Print #1, "^C1"
Print #1, "^R0"
Print #1, "~Q+0"
Print #1, "^O0"
Print #1, "^D0"
Print #1, "^E10"
Print #1, "~R200"
Print #1, "^L"
Print #1, "Dy2 -Me - dd"
Print #1, "Th: m: s"
Print #1, "AB,-95,0,2,2,0,0," & Employee
Print #1, "AB,-95,40,1,2,0,0,AGE:"
Print #1, "AB,-35,40,1,2,0,0," & age
Print #1, "AB,-95,80,1,2,0,0,SEX:"
Print #1, "AB,-35,80,1,2,0,0," & sex
Print #1, "AB,-95,120,1,2,0,0,empID:"
Print #1, "AB,35,120,1,2,0,0," & empid
'Print #1, "BA,200,120,3,7,48,0,0,4321"
Print #1, "AB,-95,0,2,2,0,0," & patient
Print #1, "AB,-95,40,1,2,0,0,AGE:"
Print #1, "AB,-35,40,1,2,0,0," & age
Print #1, "AB,-95,80,1,2,0,0,SEX:"
Print #1, "AB,-35,80,1,2,0,0," & sex
Print #1, "AB,-95,120,1,2,0,0,empid:"
Print #1, "AB,35,120,1,2,0,0," & empid
'Print #1, "BA,200,120,3,7,48,0,0,4321"
Print #1, "BA,130,120,3,7,50,0,0," & empid & ""
Print #1, "E"
Next
Close #1
MsgBox "Printed", vbInformation, "REGISTRATION"
Call CLEAR_Click
txtIPid.SetFocus
End Sub
I need to convert it from VB.net or please Suggest in the way of coding or Any referral Websites.
RSS Feed