Const mmToInch As Double = 0.254
        ''e.Graphics.PageUnit = GraphicsUnit.Millimeter

        'Elementi di formato
        Dim f As Font 'Font di stampa
        Dim a As RectangleF 'Area di stampa
        Dim sf As New StringFormat 'Formato stringa si stampa

        'Coordinate
        Dim PageX As Single = e.PageBounds.Left + (10 / mmToInch) 'Crea margine Left
        Dim PageY As Single = e.PageBounds.Top + (10 / mmToInch) 'Crea margine Top
        Dim PageW As Single = e.PageBounds.Right - PageX - (10 / mmToInch) 'Width area stampabile Pagina
        Dim PageH As Single = e.PageBounds.Bottom - PageX - (10 / mmToInch) 'Heght area stampabile Pagina
        Dim AreaX As Single = 0 'Coordinata X area di stampa
        Dim AreaY As Single = 0 'Coordinata Y area di stampa
        Dim AreaW As Single = 0 'Larghezza area di stampa
        Dim AreaH As Single = 0 'Altezza area di stampa
        ...