1.
Dim
R1
As
New
rptReciep
2.
R1.PrintOptions.PaperSize = PaperSize.PaperA5
3.
R1.Database.Tables(0).SetDataSource(DS.Tables(
"Sale"
))
4.
R1.Database.Tables(1).SetDataSource(DS.Tables(
"Company"
5.
frmReport.CrystalReportViewer.ReportSource = R1
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง