Ανανέωση ιστοσελίδας

[Ascinis]

Καλημέρα σας,
Έχω τον παρακάτω κώδικα για εκτύπωση:

'ektypwsi
Private Sub cmdPrint_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.PrintOut acSelection
End Sub

Και για αναζήτηση:
Private Sub Search_Click()

Dim strsearch As String
Dim Task As String
'Check if a keyword entered or not
If IsNull(Me.txtSearch) Or Me.txtSearch = "" Then
MsgBox "Παρακαλώ, εισάγετε κάποια λέξη κλειδί για αναζήτηση.", vbOKOnly, "Χρειάζεται λέξη κλειδί"
Me.txtSearch.BackColor = vbRed
Me.txtSearch.SetFocus
Else
strsearch = Me.txtSearch.Value
Task = "SELECT * FROM Katagrafi_Antikeimenou WHERE ((Proelevsi Like ""*" & strsearch & "*"") OR (Date Like ""*" & strsearch & "*"") OR (Yli Like ""*" & strsearch & "*"") OR (Thesi Like ""*" & strsearch & "*"") OR (Arithmos_Antistrofou Like ""*" & strsearch & "*"") OR (ID_Antikeimenou Like ""*" & strsearch & "*"") OR (Arithmos_Evreteriou Like ""*" & strsearch & "*""))"
Me.RecordSource = Task
Me.txtSearch.BackColor = vbWhite
End If
End Sub

Τώρα, πώς μπορώ να επιστρέφει 10 εγγραφές η αναζήτηση, και να τις εκτυπώνω;

Ευχαριστώ!

[Ascinis]

Το έχω φτιάξει. Βασικά είναι πολύ εύκολο. Πρώτα αναζητάς και μετά εκτυπώνεις: όλες ή την τρέχουσα. το μόνο που έχω αντικαταστήσει είναι την εντολή DoCmd.PrintOut acSelection με DoCmd.RunCommand acCmdPrint .