22-10-24, 10:49
|
Όνομα: ΣΑΚΗΣ Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 24-02-2013
Μηνύματα: 320
| |
Εξαγωγή επιλεγμένων εγγραφών pdf
Καλημέρα σας, την βοήθειά σας στο εξής:
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 για να τα εξάγω σε φάκελο τότε δεν μου φέρνει τις επιλέξιμες εγγραφές αλλά όλες.
|