run time set printer name to print in crystal report

On Error Resume Next
Dim ds As New DataSet
sel = "SELECT * FROM BRSMS.KOT_MASTER WHERE KOT_NO = '" + txtKotNo.Text + "'"
OraDap = New OracleDataAdapter(sel, Oracon)
OraDap.Fill(ds, "KOT_MASTER")

sel = "SELECT * FROM BRSMS.KOT_DETAILS WHERE STATUS='N' AND KOT_NO = '" + txtKotNo.Text + "'"
OraDap = New OracleDataAdapter(sel, Oracon)
OraDap.Fill(ds, "KOT_DETAILS")
Dim VP1 As New rptKotPrint
VP1.SetDataSource(ds)
'frmReport.CrystalReportViewer1.ReportSource = VP1
'frmReport.ShowDialog()
VP1.PrintOptions.PrinterName = "hp LaserJet 1010 HB"

Report = VP1
Report.PrintToPrinter(1, False, 0, 0)