Dim rdpDocument As New ReportDocument
Dim crConnectionInfo As New ConnectionInfo()
rdpDocument.Load(Server.MapPath("\\CrystalReport1.rpt"))
crConnectionInfo.ServerName = "MIS-009"
crConnectionInfo.DatabaseName = "HR_DEV"
crConnectionInfo.IntegratedSecurity = False
crConnectionInfo.UserID = "sa"
crConnectionInfo.Password = "sa"
rdpDocument.SetDatabaseLogon("sa", "sa")
rdpDocument.SetDataSource(GetData("@PICKINGROUTEID", "034333_138", "REPORT_TRUCK_CONSIGNMENT"))
rdpDocument.PrintOptions.PrinterName = "\\192.168.201.201\" & "HP Color LaserJet 4700 PS"
rdpDocument.PrintToPrinter(1, True, 0, 1)
Note:
If you faced any problem or error related to that you can not identify the printer IP or address here some steps to get the printer address
1) Add Printer to server. 2) run regedit 3) Search for printername to find your printer 4) value of uNCName property is printer name you need. oRpt.PrintOptions.PrinterName = "value";
No comments:
Post a Comment