ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Φόρμες ] Εκτύπωση όλων των εγγραφών φόρμας

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 18-05-19, 12:43
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή Εκτύπωση όλων των εγγραφών φόρμας

Καλησπέρα

Σε μιά φόρμα "frmNavigation" τοποθέτησα ένα κουμπί εκτύπωσης.
Πατώντας το κουμπί εκτυπώνεται, σε μορφή pdf, η φόρμα που είναι ανοικτή κάθε φορά.
Ωστόσο, δεν εκτυπώνονται όλες οι εγγραφές της επιλεγμένης φόρμας(που είναι και το ζητούμενο).
Αν τοποθετήσω την εντολή εκτύπωσης επάνω σε ένα πεδίο της [subformN], τότε εκτυπώνονται όλες οι εγγραφές.

Πως μπορούμε να διορθώσουμε - τροποποιήσουμε τον κώδικα εκτύπωσης (cmdPrintAll)
προκειμένου να έχουμε το επιθυμητό αποτέλεσμα της εκτύπωσης του συνόλου των εγγραφών της ανοικτής φόρμας?


Σας ευχαριστώ εκ των προτέρων.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Print.zip (67,4 KB, 13 εμφανίσεις)
__________________
Φιλικά/Δημήτρης
Απάντηση με παράθεση
  #2  
Παλιά 19-05-19, 20:06
Το avatar του χρήστη nasos23
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 430
Προεπιλογή

Καλησπέρα Δημήτρη.
Δες το συνημμένο αν σου κάνει.


Έκανα μερικές τροποποιήσεις στη βάση σου.
1. Τα δεδομένα των φορμών προέρχονται από τα αντίστοιχα ερωτήματα.
2. Πρόσθεσα ένα αδέσμευτο πεδίο "xf" στην κύρια φόρμα η τιμή του οποίου
προέρχεται απο το πεδίο "Εκφρ1" του κάθε ερωτήματος.
3. Δες τον κώδικα του κουμπιού (σημ. οι γνώσεις μου σε vba είναι πολύ περιορισμένες) όπου
ανάλογα την τιμή του πεδίου "xf" εκτυπώνει την αντίστοιχη φόρμα με την προέλευση
δεδομένων του αντίστοιχου ερωτήματος.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Print(1).zip (141,5 KB, 22 εμφανίσεις)
__________________
Φιλικά, Νάσος
Απάντηση με παράθεση
  #3  
Παλιά 20-05-19, 10:38
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-07-2014
Περιοχή: Πάτρα
Μηνύματα: 385
Προεπιλογή

Γειά σας
Νάσο, σ' ευχαριστώ για την πρότασή σου. Αυτή αποτελεί μιά επίλυση του ζητούμενου
η οποία, όμως, θεωρώ ότι, δεν είναι απλουστευμένη.

Υπάρχουν πιο απλές λύσεις, όπως, για παράδειγμα, να ζητήσουμε από το κουμπί εντολής [cmdPrintAll)]
να κάνει [setfocus] σε κάποιο πεδίο της (κάθε)φόρμας (όπου έχουμε τοποθετήσει τον κώδικα εκτύπωσης).

Αυτή η λύση λειτουργεί άψογα και επιλύει με κάπως απλοικό τρόπο το ζητούμενο!

Τώρα, θα ρωτήσει κάποιος, αφού υπάρχουν διάφορες λύσεις γιατί ανέβασες το θέμα?
Το θέμα το ανέβασα κυρίως για εκπαιδευτικούς λόγους. Η ορθή πρακτική για εκτυπώσεις στην access είναι οι Reports.

Ωστόσο, δεν ήθελα να μπώ στη διαδικασία δημιουργίας Reports, επειδή δεν με ενδιαφέρει η εκτύπωση
στο χαρτί αλλά η με απλό τρόπο εκτύπωση(δημιουργία) ενός αρχείου μορφής .pdf όλων των εγγραφών της
ανοιγμένης κάθε φορά φόρμας.
Τούτο το πέτυχα με τον τρόπο που περιγράφηκε παραπάνω.

Παρόλα αυτά, θα ήθελα να μάθω, κυρίως για εκπαιδευτικούς λόγους, πώς θα μπορούσε
ο κώδικας στο [cmdPrintAll)] να "βλέπει" την επιλεγμένη φόρμα και να εκτυπώνει όλες τις εγγραφές!

Καλή συνέχεια...
__________________
Φιλικά/Δημήτρης

Τελευταία επεξεργασία από το χρήστη dimitrisp : 20-05-19 στις 11:45.
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Εκτύπωση πολλών εγγραφών σε έκθεση. Νιόνιος Access - Ερωτήσεις / Απαντήσεις 9 21-12-18 12:05
[ Εκθέσεις ] Εκτύπωση μόνο επιλεγμένων εγγραφών apostolos Access - Ερωτήσεις / Απαντήσεις 2 02-10-13 15:58
Εκτύπωση τυχαίων Εγγραφών και αριθμών Ms-Office-Development Team Access - Tips & Tricks 0 11-11-09 09:43
Εκτύπωση προεπιλεγμένου πλήθους εγγραφών Meteora Access - Ερωτήσεις / Απαντήσεις 3 10-11-09 15:24
Εκτύπωση τυχαίων Εγγραφών και αριθμών kon73 Access - Ερωτήσεις / Απαντήσεις 0 06-02-09 11:53


Η ώρα είναι 13:44.