[makky]

عندي اكثر من طابعه متصله بالجهاز .المشكله انه كله بيطبع علي نفس الطابعه حتي الباركود.الطابعه اللي اختارها من الكنترول بانل واخليها هي default هي اللي بيطبع عليها.انا عايز اخلي الكود هو اللي يطبع.وفي نفس الوقت يطبع نسخه واحده لانه في حجات بتطبع اكثر من نسخه.انا جربت الكود ده بس لسه المشكله شغاله
Dim rprt As New ReportDocument
rprt.Load(Application.StartupPath & "\Report\joprpt.rpt")
rprt.SetDataSource(dt)
rprt.Subreports(0).SetDataSource(dtsub)
pill.CrystalReportViewer1.ReportSource = rprt
pill.CrystalReportViewer1.Zoom(80%)
pill.CrystalReportViewer1.Refresh()
Dim prnt As New System.Drawing.Printing.PrinterSettings
prnt.PrinterName = dt2.Rows(0)(5).ToString
rprt.PrintToPrinter(prnt, New System.Drawing.Printing.PageSettings(prnt), False)
rprt.PrintToPrinter(1, False, 0, 999)