Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        ' e.Graphics.PageUnit = GraphicsUnit.Millimeter
        'trasformazione dei centesimi di pollice in decimi di millimetro
        '                              =  827.0F / 2100.0F   = 0.393_8_095 ==> Praticamente identici
        Dim Unita As Single = 1169.0F / 2970.0F ' = 0.393_6_026 centesimi di pollice per decimo di millimetro
        Dim millimetro As Single = 10.0F * Unita 'Non so se verrà usato ma mi serve per ricordarmi che diavolo sto pensando.
        Dim FormatoCarattere As Font = New Font("times new romans", (millimetro * 1.2F))
        Dim pennaNera As New Pen(Brushes.Black, 0.2F)
        Dim PennaRossa As New Pen(Brushes.Black, 0.2F)
        ' Implementazione grafica
        With e.Graphics
            '
            'Cornice bollettino
            '
            .DrawLine(pennaNera, New Point(0, (3.5F * millimetro)), New Point((297.0F * millimetro), (3.5F * millimetro)))
            .DrawLine(pennaNera, New Point((132.0F * millimetro), 0), New Point((132.0F * millimetro), (110.0F * millimetro)))
            .DrawLine(PennaRossa, New Point((132.0F * millimetro), (82.5F * millimetro)), New Point((297.0F * millimetro), (82.5F * millimetro)))
            .DrawRectangle(pennaNera, New Rectangle(5 * millimetro, 7 * millimetro, 5 * millimetro, 5 * millimetro))
            '.DrawImage("DEfinire immmagine EURO di 50 per 50 alle coordinate 50,70
            '
            'CASELLE & Etichette
            '              (Approssimativament)
            '               le caselle sono larghe 4 mm ed alte 5 mm. Lo spazio tra loro e di 0,375
            '               Tali valori sono stati presi sulla misura di 9 caselle consecutive del gruppo:
            '               "NUMERO IDENTIFICATIVO CARTELLA"
            'sul c/cn
            .DrawString("sul C/C n.", FormatoCarattere, Brushes.Red, New PointF((14.0F * millimetro), (10.5F * millimetro)))
            Dim angoloX As Integer
            Dim angoloY As Integer
            Dim larghezza As Integer
            Dim altezza As Integer
            angoloY = CInt(7.75F * millimetro)
            larghezza = CInt(4.0F * millimetro)
            altezza = CInt(5.0F * millimetro)
            For i As Single = 0.0F To 7.0F Step 1.0
                angoloX = System.Math.Truncate(((27.5F * millimetro) + (i * 4.375F * millimetro)))
                .DrawRectangle(PennaRossa, New Rectangle(angoloX, angoloY, larghezza, altezza))
            Next

            'MessageBox.Show(PrintDocument1.DefaultPageSettings.PaperSize.ToString)

        End With
    End Sub