Grazie per l'interessamento ma ho risolto...la notte porta consiglio...
questo il codice:
imports system.drawing.printing
' nella sezione print page questo codice
Dim tmp as string=string.empty
Dim formatR As System.Drawing.StringFormat = New System.Drawing.StringFormat
formatR.Alignment = StringAlignment.Far
For i = 0 To 5
For p = 0 To 5
tmp = DtgNumeri.Item(p, i).Value()
tmp = String.Format("{0:N2}", tmp)
e.Graphics.DrawString(tmp, font1, Brushes.Black, coln, rigan, formatR)
coln += 10
Next
coln = 0
rigan += 10
Fatto.ora allinea correttamente i numeri a destra.