Private Sub pdoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles prt_Ricevuta.PrintPage

        Dim YST As UInt16 = 30   
        Dim Font As New Font("Tahoma", 12, FontStyle.Bold)
        Dim Brush As New SolidBrush(Color.Black)
        Dim I As Byte

        With e.Graphics
            For I = 0 To grd_Acquisti.Rows.Count - 1
                .DrawString(grd_Acquisti.Item(2, I).Value, Font, Brush, 20, YST)
                YST += 25
            Next I
        End With

    End Sub