Merhaba arkadaşlar.
Access 2010'da aşağıdaki kod ile 3 adet raporu pdf olarak D:\ sürücüsüne kayıt ettiriyorum.

[code=vba]Dim stDocName As String
Dim stDocName2 As String
Dim stDocName3 As String

   stDocName = "İrsaliye"
   stDocName2 = "HATA_LISTESI"
   stDocName3 = "CEKI_LISTESI"

Dim Sayac As Long, Kosul As String
   For Sayac = 0 To Me.Liste0.ListCount - 1
       If InStr(1, Kosul, Me.Liste0.Column(2, Sayac)) = 0 Then Kosul = Kosul & Me.Liste0.Column(2, Sayac) & ", "