For j = 0 To UBound(strExtradata)
    Printer.CurrentX = ((Printer.ScaleWidth - Printer.TextWidth(strExtradata(j))) - 2000)
    Printer.Print strExtradata(j);
            If (j + 1) > UBound(strExtradata) Then
                Exit For
            End If
    Printer.CurrentX = (Printer.ScaleWidth / 2 - 500)
    Printer.Print strExtradata(j + 1);
    Printer.CurrentX = 1200
    Printer.Print strExtradata(j + 2)
    j = j + 3
Next j