Private Sub PrintDocument_PrintPage(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
        Try
            e.Graphics.PageUnit = GraphicsUnit.Point
            e.Graphics.RenderingOrigin = New Point(e.MarginBounds.Left, e.MarginBounds.Top)
            Static Font As New Font("Trebuchet MS", 11, FontStyle.Regular, GraphicsUnit.Point)
            Static CharHeight As Single = Font.GetHeight(e.Graphics)
            'Calcola le linee di testo che possono stare in una pagina
            Static TotalLines As Int16 = e.MarginBounds.Height / CharHeight
            Dim Y As Int16 = e.MarginBounds.Top
            ....
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Sub