kodun tamamı bu

gayet güzel çalışıyor

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)

Me.FillStyle = 0

yerlestir

harfyerlestir

End Sub

Private Sub yerlestir()

Dim x As Integer

Dim y As Integer

Dim z As Integer

For x = 1 To 11

z = Me("tc" & x).Value

y = Me("tc" & x).Left

Me.Circle (y + 80, (z * 300) + 500), 100, 0

Next x

End Sub

Private Sub harfyerlestir()

Dim harfler As String

harfler = "abcçdefgğhiıjklmnoöprsştuüvyz"

Dim x As Integer

Dim y As Integer

Dim i As Integer

Dim z As Integer

Dim t As Integer

Dim c As Integer

y = Len(harfler)

t = Len(Me.adı_soyadı)

For c = 1 To 20

Me("M" & c) = ""

Next c

For z = 1 To t

Me("M" & z).Value = Mid(Me.adı_soyadı, z, 1)

For x = 1 To y

If Mid(Me.adı_soyadı, z, 1) = Mid(harfler, x, 1) Then

Me.Circle (Me("M" & z).Left, (x * 200) + 6000), 100, 0

End If

Next x

Next z

End Sub

aslında harflerin ascıı kodları ile halledilirdi ancak ü ö ğ harflerinin kodları normal asci sıralamasının dışında büyük rakamlar verdiği için kendim bir harf sıralaması uydurdum