เว็บบอร์ดถามตอบปัญหา

[VB.NET] ก้าวแรกกับการพิมพ์รายงานด้วย ActiveReports .NET ดูทั้งหมด


ก็ต้องเรียกได้ว่าเป็นก้าวแรกจริงๆแหละครับทั่นผู้ชม แต่แอดมินจะเน้นไปที่การเขียนโค้ดแล้วสั่งให้ทำงานจึงจะเห็นผลลัพธ์ หรือที่เราเรียกว่า Run Time มากกว่าการใช้วิธีจับ Control ลากมาวางแปะลงบนฟอร์ม หรือที่เราเรียกว่า Design Time เพราะวิธีการนี้พอถึงจุดๆหนึ่งมันจะตันจนหาทางออกไม่ได้ ... แต่เกือบจะทุกงานนั่นแหละ มันก็ต้องมีทั้ง Design Time และ Run Time มาผสมปนเปกันไป ซึ่งก็ขึ้นอยู่กับทักษะ และประสบการณ์ของแต่ละบุคคล ก็พยายามหมั่นลองศึกษากันไปนะข่ะรับกระผม

มาดูหน้าจอ Design ...

ก็ใช้วิธีการมาตรฐานคือการเลือก Control ต่างๆมาวางแปะลงบน ActiveReports Designer โดยแยกเป็นส่วนๆตามชื่อ สำหรับ Detail ก็คือส่วนที่เราต้องการพิมพ์ข้อมูล

เราสามารถกำหนดค่าคุณสมบัติ (Properties) ต่างๆให้กับ Control ของตัว ActiveReports ในแบบ Design Time และดูผลด้วยการ Preview ได้เลยทันที นี่ก็จะเป็นการทดสอบเบื้องต้น เพราะอย่าลืมว่าข้อมูลที่ถูกส่งมาพิมพ์จริงๆ มันไม่ได้เป็นแบบนิ่งๆไม่ไหวติงหรือ Static แต่จะแปรเปลี่ยนผันไปตลอด หรือ Dynamic ...

โค้ดในส่วนของ ActiveReports ...
  1. Imports DataDynamics.ActiveReports
  2. Imports DataDynamics.ActiveReports.Document

  4. Public Class NewActiveReport1

  6.     Private Sub NewActiveReport1_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
  7.         '/ การตั้งค่าหน้ากระดาษ
  8.         With PageSettings
  9.             '/ หน่วยวัดเป็นนิ้ว (ใช้ CmToInch ด้วยการรับค่าเซนติเมตร แต่แปลงเป็นนิ้วแทน เพื่อวัดระยะได้ง่ายกว่า)
  10.             .Margins.Left = CmToInch(1.5)
  11.             .Margins.Right = CmToInch(0.2)
  12.             .Margins.Top = CmToInch(1.5)
  13.             .Margins.Bottom = CmToInch(1.5)
  14.             '/ ตั้งค่ากระดาษแนวตั้ง
  15.             .Orientation = PageOrientation.Portrait
  16.             '/ กระดาษขนาด A4
  17.             .PaperKind = Drawing.Printing.PaperKind.A4
  18.             '/ กรณีที่กำหนดขนาดกระดาษเอง
  19.             '/ .PaperKind = Drawing.Printing.PaperKind.Custom
  20.         End With
  21.         '// กำหนดค่าให้กับ Control แบบ Run Time
  22.         With Barcode1
  23.             .Text = "G2GNET-2017"
  24.             .Style = BarCodeStyle.Code39
  25.             .CaptionPosition = BarCodeCaptionPosition.Above
  26.         End With
  27.         TextBox1.Text = "ทดสอบการใช้งาน ActiveReports .NET"
  28.         TextBox2.Text = "ส่วนของ Detail"
  29.     End Sub

  31.     Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter1.Format
  32.         Label1.Text = "หน้าที่: " & Me.PageNumber
  33.     End Sub
  34. End Class

มาดูโค้ดในส่วนของ Viewer เพื่อผูก ActiveReports Designer มาแสดงผลลงบนฟอร์มของ VB
  1. Public Class Form1

  3.     Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
  4.         Dim rpt As New NewActiveReport1
  5.         ' / --------------------------------------------------------------------------------
  6.         ' / ส่วนที่สำคัญในการผูก ARDesigner เข้ากับรายงาน
  7.         ' / Instance name ARDesigner มันจะชี้ไปที่ไฟล์ NewActiveReport1.vb
  8.         ' / โหลดรายงาน Document (NewActiveReport1) เข้าสู่ ActiveReports Viewer
  9.         Me.Viewer1.Document = rpt.Document
  10.         ' / --------------------------------------------------------------------------------
  11.         ' / ปรับการย่อขยาย (Zoom) ของหน้ารายงาน
  12.         Viewer1.ReportViewer.Zoom = 0.95 ' 95%
  13.         ' / Run Report
  14.         rpt.Run()
  15.     End Sub
  16. End Class
เพียงเท่านี้ก็เป็นการสิ้นสุดกระบวนการ
ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่

    ARNetBasic.zip (2017-11-11 11:22 อัปโหลด)

    22.96 KB, ดาวน์โหลดแล้ว: 9250

  • คัดลอกลิงก์ Yupaporn
  • 2019-4-30 13:38:39
C:\Users\yupaporn.c\Desktop\1111\111.png

ทำโปรแกรมเปิดไม่ได้คะ
  • คัดลอกลิงก์ sonthaya
  • 2021-3-17 09:12:02
แล้วจะเอา ข้อความด้านบน บาร์โต๊ต ออก ได้อย่างไรบ้างครับ

  • คัดลอกลิงก์ thongkorn
  • 2021-3-17 11:29:41
อ้างอิง: sonthaya ตอบกลับเมื่อ 2021-3-17 09:12
แล้วจะเอา ข้อความด้านบน บาร์โต๊ต ออก ได้อย่างไรบ้างครับ

คลิ๊กเลือกบาร์โค้ด แล้วไปดูที่ Properties ... CaptionPosition --> None คือไม่แสดงผลข้อมูลของบาร์โค้ดครับ ส่วน Above-บน และ Below-ล่าง
หน้าแรก | ลงชื่อเข้าใช้ | สมัครสมาชิก
รูปแบบทั่วไป | รูปแบบโมเดิร์น | รูปแบบคอมพิวเตอร์ |

© Comsenz Inc.