[smasak]

Καλημέρα σας, την βοήθειά σας στο εξής:
Aπό πίνακα "ΑΠΟΔΕΙΞΗ_ΕΙΣΠΡΑΞΗΣ" επιλέγω κάποιες εγγραφές(ΕπιλογήΑ) και δημιουργώ reports αποδείξεων με report "ΑΠΟΔΕΙΞΗ".

Dim rsFrom, strSQL As String
Dim critirio1 As String
Dim filepath As String
Dim reportname As String

strSQL = "SELECT ΑΠΟΔΕΙΞΗ_ΕΙΣΠΡΑΞΗΣ.* FROM ΑΠΟΔΕΙΞΗ_ΕΙΣΠΡΑΞΗΣ " & _
"WHERE (ΕπιλογήΑ=True)"

critirio1 = "[ΕπιλογήΑ]= " & Me![ΕπιλογήΑ]
filepath = "j:\apod.pdf"
reportname = "ΑΠΟΔΕΙΞΗ"

'DoCmd.OpenReport "ΑΠΟΔΕΙΞΗ", acViewPreview, , critirio1
DoCmd.OutputTo acOutputReport, reportname, acFormatPDF, filepath, critirio1, ,True
DoCmd.Close acReport, reportname, acSaveNo

Όταν χρησιμοποιώ την acViewPreview επιλέγει τις εγγραφές(ΕπιλογήΑ) και ανοίγει τα pdf.
Όταν χρησιμοποιώ την OutputTo acOutputReport για να τα εξάγω σε φάκελο τότε δεν μου φέρνει τις επιλέξιμες εγγραφές αλλά όλες.