[VB.NET] การสร้างลายน้ำแบบตัวอักษร (Watermark) ให้กับรายงาน ActiveReports

thongkorn

ลายน้ำ (Watermark) คือ ภาพ หรือตัวอักษรที่สามารถสังเกตได้ในกระดาษ โดยให้ปรากฏเป็นสีจางกว่ารายละเอียดของเอกสาร ในงานการเขียนโปรแกรม มักจะใช้เพื่อบ่งบอกบางอย่าง เช่น เอกสารต้นฉบับ สำเนา หรือแม้แต่การล็อคตัวโปรแกรมให้เกิดคำว่า DEMO หรือทดลองใช้งาน เพื่อไม่ให้นำเอกสารไปใช้งานได้จริง ... โค้ดชุดนี้จะเป็นการสร้างลายน้ำแบบตัวอักษร ให้กับรายงานของ ActiveReports .Net โดยเป็นการใช้คำสั่งให้สร้างในแบบ Run Time หรือ Dynamic ซึ่งจะทำให้เราสามารถกำหนดตำแหน่งที่จะวางลายน้ำได้อย่างใจที่ต้องการ โดยจะเกิดอยู่ที่เหตุการณ์สุดท้ายของตัว ActiveReports นั่นคือ PageEnd ...

References ...


ดาวน์โหลด ActiveReports .Net (สำหรับสมาชิกเท่านั้น)

โค้ดชุดคำสั่งบนฟอร์มหลักในการแสดงผล ...

1. Public Class frmWatermarkAR
   
2. 
   
3.     Private Sub frmWatermarkAR_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         '// Instance name for Report.
   
5.         Dim rpt As New NewActiveReport1
   
6.         '// Zoom 90%
   
7.         Me.Viewer1.ReportViewer.Zoom = 0.9
   
8.         '/ Run Report
   
9.         rpt.Run()
   
10.         Me.Viewer1.Document = rpt.Document
    
11.     End Sub
    
12. 
    
13.     Private Sub frmWatermarkAR_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
14.         Me.Dispose()
    
15.         GC.SuppressFinalize(Me)
    
16.         Application.Exit()
    
17.     End Sub
    
18. End Class

คัดลอกไปที่คลิปบอร์ด

โค้ดในส่วนของรายงาน ...

1. Public Class NewActiveReport1
   
2. 
   
3.     Private Sub NewActiveReport1_PageEnd(sender As Object, e As System.EventArgs) Handles Me.PageEnd
   
4.         '// Sample I.
   
5.         Me.CurrentPage.Font = New System.Drawing.Font("Arial", 20.5F, FontStyle.Bold)
   
6.         Me.CurrentPage.ForeColor = System.Drawing.Color.Red
   
7.         Me.CurrentPage.DrawText("Watermark ActiveReports, DEMO Version.", CmToInch(3.5), 2.5, CmToInch(16), 0.5F)
   
8.         '// Sample II.
   
9.         Me.CurrentPage.Font = New System.Drawing.Font("Arial", 35.5F, FontStyle.Bold)
   
10.         Me.CurrentPage.ForeColor = System.Drawing.Color.DarkGray
    
11.         Me.CurrentPage.TextAngle = 450
    
12.         Me.CurrentPage.DrawText("WWW.G2GNET.COM", CmToInch(5.5), 2.8, CmToInch(15), 4)
    
13.     End Sub
    
14. 
    
15.     Private Sub NewActiveReport1_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
    
16.         '/ การตั้งค่าหน้ากระดาษแบบ Run Time.
    
17.         With PageSettings
    
18.             '/ หน่วยวัดเป็นนิ้ว
    
19.             .Margins.Left = CmToInch(1) ' แปลงค่า 1.0 ซม. เป็นนิ้ว
    
20.             .Margins.Right = 0.12
    
21.             .Margins.Top = 1
    
22.             .Margins.Bottom = 0.75
    
23.             '/ ตั้งค่ากระดาษแนวตั้ง
    
24.             .Orientation = PageOrientation.Portrait
    
25.             '/ กระดาษขนาด A4
    
26.             .PaperKind = Drawing.Printing.PaperKind.A4
    
27.         End With
    
28.     End Sub
    
29. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...  

MrDen

ขอบพระคุณอย่างสูงครับ อาจารย์