[Giorgos]

Dim printpelates As ADODB.Recordset
Set printpelates = New Recordset

printpelates.Open "SELECT KodikosPelati,Texnikos,Eidos FROM Kataxorisi", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

printpelates.MoveFirst

Dim printName As String

printName = "\\PEER_1\EID"

Open (printName ) For Output As #1

Write #1, "..."
While Not printpelates.EOF
Write #1, "123" & " - " & "sgsgsgsg" & " - " & "printpelates.Fields("KodikosPelati")" & " - " & "printpelates.Fields("Texnikos")"
Write #1, ""
Write #1, "...."
Write #1, "..."
Write #1, "..."
Write #1, ""
printpelates.MoveNext
GoTo TELOS
Wend

TELOS:

Close #1 ' Close file.

Αυτο εδώ έψαχνα.. με κουρασε αλλα το βρήκα..
με τον κωδικα αυτο τυπώνεις μεσα απο ρουτινα..

Σας ευχαριστώ πάντος που ασχοληθήκατε..

φιλικά Γιώργος