Payroll System (Anyone who know this)

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