CrystalReportViewer1.ReportSource = CR
With CR
.Refresh()
.PrintOptions.PrinterName = “EPSON TM-T88III Receipt”
.PrintToPrinter(1, False, 1, 1)
End With
Paul Timmerman
CrystalReportViewer1.ReportSource = CR
With CR
.Refresh()
.PrintOptions.PrinterName = “EPSON TM-T88III Receipt”
.PrintToPrinter(1, False, 1, 1)
End With
Paul Timmerman