I have this Payroll System project for my MIS. I have this Print Slip Command Botton for printing the pay slip. Now I want to print those field names using a real printer (like HP or canon). I mean from Data Report the printer should print the content of the Data Report. Do I still need the name of the printer and the serial code of the printer? Or I need a code for it? If I need a code can you pls post it?
Any idea about this is accepted. Using Data Report only not Crystal Report.
Code for Command Botton
Private Sub Command10_Click()
If Text10.Text = "" Then
MsgBox "Enter employee number.", 0 + 48, "Message"
Text10.SetFocus
Exit Sub
End If
If Text11.Text = "" Then
MsgBox "Enter employee days of work.", 0 + 48, "Message"
Text11.SetFocus
Exit Sub
End If
y = MsgBox("Is employee Married?", vbYesNo + vbQuestion, "Question")
If y = vbYes Then
DataReport1.Show
Set DataReport1.DataSource = Adodc1
'==================================================================================
DataReport1.Sections("Section4").Controls("LabeL3").Caption = "NO. : " & Form3.Text10.Text & ""
DataReport1.Sections("Section4").Controls("Label4").Caption = "NAME : " & Form3.Text12.Text & ""
DataReport1.Sections("Section4").Controls("LabeL11").Caption = "POSITION : " & Form3.Text13.Text & ""
DataReport1.Sections("Section4").Controls("Label39").Caption = Form3.Text39.Text
DataReport1.Sections("Section4").Controls("Label37").Caption = Form3.Text38.Text
DataReport1.Sections("Section4").Controls("Label35").Caption = Form3.Text37.Text
DataReport1.Sections("Section4").Controls("Label33").Caption = Form3.Text36.Text
DataReport1.Sections("Section4").Controls("Label31").Caption = Form3.Text35.Text
DataReport1.Sections("Section4").Controls("Label29").Caption = Form3.Text34.Text
DataReport1.Sections("Section4").Controls("Label27").Caption = Form3.Text33.Text
DataReport1.Sections("Section4").Controls("Label25").Caption = Form3.Text32.Text
DataReport1.Sections("Section4").Controls("Label23").Caption = Form3.Text31.Text
DataReport1.Sections("Section4").Controls("Label21").Caption = Form3.Text26.Text
DataReport1.Sections("Section4").Controls("Label19").Caption = Form3.Text25.Text
DataReport1.Sections("Section4").Controls("Label17").Caption = Form3.Text11.Text
DataReport1.Sections("Section4").Controls("Label15").Caption = Form3.Text14.Text
DataReport1.Sections("Section4").Controls("Label13").Caption = Form3.Text18.Text
DataReport1.Sections("Section4").Controls("Label6").Caption = Form3.Text15.Text
DataReport1.Sections("Section4").Controls("LabeL8").Caption = Form3.Text19.Text
DataReport1.Sections("Section4").Controls("Label10").Caption = Form3.Text20.Text
'================================================================================
Else
DataReport4.Show
Set DataReport4.DataSource = Adodc1
'==================================================================================
DataReport4.Sections("Section4").Controls("LabeL3").Caption = "NO. : " & Form3.Text10.Text & ""
DataReport4.Sections("Section4").Controls("Label4").Caption = "NAME : " & Form3.Text12.Text & ""
DataReport4.Sections("Section4").Controls("LabeL11").Caption = "POSITION : " & Form3.Text13.Text & ""
DataReport4.Sections("Section4").Controls("Label39").Caption = Form3.Text39.Text
DataReport4.Sections("Section4").Controls("Label37").Caption = Form3.Text38.Text
DataReport4.Sections("Section4").Controls("Label35").Caption = Form3.Text37.Text
DataReport4.Sections("Section4").Controls("Label33").Caption = Form3.Text36.Text
DataReport4.Sections("Section4").Controls("Label31").Caption = Form3.Text35.Text
DataReport4.Sections("Section4").Controls("Label29").Caption = Form3.Text34.Text
DataReport4.Sections("Section4").Controls("Label27").Caption = Form3.Text33.Text
DataReport4.Sections("Section4").Controls("Label25").Caption = Form3.Text32.Text
DataReport4.Sections("Section4").Controls("Label23").Caption = Form3.Text31.Text
DataReport4.Sections("Section4").Controls("Label20").Caption = Form3.Text25.Text
DataReport4.Sections("Section4").Controls("Label21").Caption = Form3.Text26.Text
DataReport4.Sections("Section4").Controls("Label17").Caption = Form3.Text14.Text
DataReport4.Sections("Section4").Controls("Label15").Caption = Form3.Text11.Text
DataReport4.Sections("Section4").Controls("Label13").Caption = Form3.Text18.Text
DataReport4.Sections("Section4").Controls("Label6").Caption = Form3.Text15.Text
DataReport4.Sections("Section4").Controls("LabeL8").Caption = Form3.Text16.Text
DataReport4.Sections("Section4").Controls("Label10").Caption = Form3.Text17.Text
'================================================================================
End If
End Sub
- Add new comment
- 4 views