[ Συναρτήσεις ] Εξαγωγή επιλεγμένων εγγραφών pdf

[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 για να τα εξάγω σε φάκελο τότε δεν μου φέρνει τις επιλέξιμες εγγραφές αλλά όλες.

[Tasos]

Καλησπέρα σε όλους!

Σάκη δεν υπάρχει η δυνατότητα ορισμού φίλτρου (όπως στην OpenReport) στην εντολή OutputTo.

Δοκίμασε τον παρακάτω κώδικα:

' Θα πρέπει να ανοιχτεί η έκθεση ώστε να εφαρμοστεί το φίλτρο.

DoCmd.OpenReport "ΑΠΟΔΕΙΞΗ", acViewPreview, , critirio1, acHidden

DoCmd.OutputTo acOutputReport, reportname, acFormatPDF, filepath, True

DoCmd.Close acReport, reportname, acSaveNo

Καλή συνέχεια!

Τάσος

[smasak]

Ευχαριστώ πολύ Τάσο