Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Module1.YourMethod1( e ) End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load AddHandler Me.PrintDocument1.PrintPage, AddressOf Module1.PrintDocument1_PrintPage End Sub