raporun nasıl hazırlanacağını bilmediğim için kesin bir şey öneremem
ama aşağıdaki kodu bir butona yazarsanız yan yana yazar

Dim SqlRs As String

Dim TrhDz As Variant

 

SqlRs = "SELECT BOLUM from SQLTekrarsiz"

Set rs = CurrentDb.OpenRecordset(SqlRs, dbOpenSnapshot)

 

rs.MoveLast

rs.MoveFirst

 

KytSay = rs.RecordCount

TrhDz = rs.GetRows(KytSay)



For x = 0 To KytSay - 1

    Metin0 = Metin0 & " " & TrhDz(0, x)

Next x

Metin0 = Trim(Metin0)