How to print some data from bas Module

1. Module modMain  
2.   Dim sText As String  
3.   Public Sub printRecord()  
4.       Dim pDocument As New Printing.PrintDocument  
5.       AddHandler pDocument.PrintPage, AddressOf pd_PrintPage  
6.       sText = "DotNet Blogger - Your favorite Microsoft Visual Studio .Net Programming Blog."  
7.       pDocument.Print()  
8.   End Sub  
9.   
10.   Private Sub pd_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)  
11.       'this uses a module level variable  
12.       e.Graphics.DrawString(sText, New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Pixel), Brushes.Black, 50, 50)  
13.   End Sub  
14. End Module