โค้ด:

1. Imports DataDynamics.ActiveReports
   
2. Imports DataDynamics.ActiveReports.Document
   
3. 
   
4. Public Class NewActiveReport1
   
5. 
   
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
    
30. 
    
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

โค้ด:

1. Public Class Form1
   
2. 
   
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