' Crea caratteri
        Dim titlefont As New XFont("Times New Roman", 12, XFontStyle.Bold)
        Dim tableheader As New XFont("Times New Roman", 16, XFontStyle.Bold)
        Dim bodyfont As New XFont("Times New Roman", 10, XFontStyle.Regular)
 ' Disegnare il testo
        Dim x As Double = 150  '250
        Dim y As Double = 20
        Dim width As Double = 600
        Dim height As Double = 25
Dim textformater As New XTextFormatter(xGrap) 'Utilizzato per mantenere l'area del testo personalizzato
 For i = 0 To ds_Riferimenti.Tables(0).Rows.Count - 1
            Dim Visto As String = ds_Riferimenti.Tables(0).Rows(i).Item(0)
            Dim Riferimento As String = ds_Riferimenti.Tables(0).Rows(i).Item(1)
            textformater.DrawString(Visto, bodyfont, XBrushes.Black, New XRect(20, y, width, height), XStringFormats.TopLeft)
            textformater.DrawString(Riferimento, bodyfont, XBrushes.Black, New XRect(80, y, width, height), XStringFormats.TopLeft)
            y = y + 10
        Next