Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Εκτύπωση Πολλαπλών Εκθέσεων για μια εγγραφή (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2779-ektiposi-pollaplon-ektheseon-gia-mia-eggrafi.html)

kellis 07-11-13 23:39

Εκτύπωση Πολλαπλών Εκθέσεων για μια εγγραφή
 
Έχω ένα πίνακα που περνάω εγώ δεδομένα.
Υπάρχουν 5-6 διαφορετικές εκθέσεις οι οποίες παίρνουν δεδομένα από τον παραπάνω πίνακα.
Η ερώτηση που έχω να κάνω είναι η εξής:
Έχω φτιάξει μια φόρμα όπου αναζητώ την εγγραφή που θέλω.
Γίνεται παράδειγμα από πλαίσιο λίστας (ένα ή περισσότερα) ή σύνθετο πλαίσιο (ένα ή περισσότερα) να επιλέξω ποια ή ποιες από τις εκθέσεις θέλω να τυπωθούν; Μπορεί να είναι πάνω από μια κάθε φορά (έκθεση 1, έκθεση 2 και έκθεση 5).
Ευχαριστώ

sarafis 08-11-13 00:32

1 Συνημμένο(α)
Βαγγέλη καλημέρα και εδώ
Δες στο συνημμένο υπόδειγμα μια εκδοχή της μεθόδου που ζητάς. Μπορείς να προσθέσεις όσες Εκθέσεις θές.

kellis 11-11-13 19:51

Στέλιο μήπως κάτι λείπει απ'ο τον κώδικα γιατί δεν ανοίγει με το πάτημα του κουμπιού;

Παράθεση:

Αρχική Δημοσίευση από sarafis (Μήνυμα 16090)
Βαγγέλη καλημέρα και εδώ
Δες στο συνημμένο υπόδειγμα μια εκδοχή της μεθόδου που ζητάς. Μπορείς να προσθέσεις όσες Εκθέσεις θές.


ΤΖΙΜΗΣ 11-11-13 20:27

Βαγγέλη δημιουργείς δύο εκθέσεις report_1 και report_2
Σε μια φόρμα περνάς ένα πλαίσιο ομάδας επιλογών όπου το πρώτο θε έχει τιμή επιλογής 1 και το δεύτερο τιμή επιλογής 2.
Στη συνέχει δημιουργείς ένα κουμπί εντολής προεπισκόπησης εκτύπωσης και στο συμβάν με το κλικ περνάς τον κώδικα
If [Πλαίσο2] = 1 Then
DoCmd.OpenReport "report_1", acPreview
Else
DoCmd.OpenReport "report_2", acPreview
End If
end sub
Με εκτίμηση Τζίμης

sarafis 12-11-13 12:06

Βαγγέλη καλημέρα
Πάτα Ctrl+G για να δείς τον κώδικα. Έχω βάλει να κάνει απευθείας εκτύπωση. Και για να το δοκιμάσεις έχω βάλει σχόλια στον κώδικα και debug.print.
Από ότι κατάλαβα θες εκτύπωση περισσότερων της μίας εκθέσεων οπότε θα πάς σε απευθείας εκτύπωση χωρίς προεπισκόπηση. Διαφορετικά αντί για acNormal μπορείς να βάλεις στον κώδικα acPreview αλλά σε πολλές εκθέσεις θα έχεις θέμα.

kellis 12-11-13 19:19

Τζίμη αυτό που μου προτείνεις δεν κάνει αυτό που θέλω ακριβώς καθώς κάθε φορά εκτυπώνει μόνο μια έκθεση και όχι μια ομάδα εκθέσεων.

Παράθεση:

Αρχική Δημοσίευση από ΤΖΙΜΗΣ (Μήνυμα 16116)
Βαγγέλη δημιουργείς δύο εκθέσεις report_1 και report_2
Σε μια φόρμα περνάς ένα πλαίσιο ομάδας επιλογών όπου το πρώτο θε έχει τιμή επιλογής 1 και το δεύτερο τιμή επιλογής 2.
Στη συνέχει δημιουργείς ένα κουμπί εντολής προεπισκόπησης εκτύπωσης και στο συμβάν με το κλικ περνάς τον κώδικα
If [Πλαίσο2] = 1 Then
DoCmd.OpenReport "report_1", acPreview
Else
DoCmd.OpenReport "report_2", acPreview
End If
end sub
Με εκτίμηση Τζίμης

Στέλιο προσπαθώ να δουλέψω αυτό που μου έχεις στείλει αλλά δεν λειτουργεί ούτε η απ' ευθείας εκτύπωση όπως λες. Θα με ενδιέφερε να έχω προεπισκόπηση πρώτα και μετά να προχωρήσω στην εκτύπωση.

Παράθεση:

Αρχική Δημοσίευση από sarafis (Μήνυμα 16128)
Βαγγέλη καλημέρα
Πάτα Ctrl+G για να δείς τον κώδικα. Έχω βάλει να κάνει απευθείας εκτύπωση. Και για να το δοκιμάσεις έχω βάλει σχόλια στον κώδικα και debug.print.
Από ότι κατάλαβα θες εκτύπωση περισσότερων της μίας εκθέσεων οπότε θα πάς σε απευθείας εκτύπωση χωρίς προεπισκόπηση. Διαφορετικά αντί για acNormal μπορείς να βάλεις στον κώδικα acPreview αλλά σε πολλές εκθέσεις θα έχεις θέμα.

Τέλος πως θα μπορέσω από τον πίνακα με τα στοιχεία που είναι για εκτύπωση να κάνω αναζήτηση μια εγγραφή και οι εκτυπώσεις να αναφέρονται μόνο σε αυτήν;
Ευχαριστώ

alex 12-11-13 21:27

1 Συνημμένο(α)
Βαγγέλη!!

Αν κατάλαβα καλά ζητάς από μία φόρμα να επιλέγεις μια εγγραφή που θα εκτυπώνει μια έκθεση.΄Οπου η φόρμα φυσικά θα παίρνει τις εγγραφές από ένα πίνακα ή ένα ερώτημα.Επιλέγεις την εγγραφή με το επώνυμο από το σύνθετο πλαίσιο στο κάτω μέρος της βάσης και φιλτράρεις την εγγραφή που θέλεις να εμφανίσεις .Εμφανίζεται σε προ επισκόπηση και εκτυπώνεις αυτή ή και όχι.
Δές το παρακάτω συνημμένο.

Χρήστος 12-11-13 21:35

Καλησπέρα

Προσπάθησα να προσεγγίσω τα ζητούμενά σου.
Ρίξε μια ματιά.

kellis 18-11-13 20:32

1 Συνημμένο(α)
Χρήστο με εξυπηρετεί πολύ αυτό που μου έστειλες με το παράδειγμά σου. Θέλω μόνο μια ερώτηση. Κοίτα στο επισυναπτώμενο αρχείο στην Φόρμα Αναζήτηση Πελατών έχει κώδικα για αναζήτηση που με βολέυει πάρα πολύ. Εκεί λοιπόν με το μεγάλο κουμπί ανοίγει την Φόρμα Επιλογής Εκτύπωσης. Μπορούμε από αυτήν την αναζήτηση να παραλείψουμε την αναζήτηση ονόματος;;
Ευχαριστώ

Παράθεση:

Αρχική Δημοσίευση από Χρήστος (Μήνυμα 16131)
Καλησπέρα

Προσπάθησα να προσεγγίσω τα ζητούμενά σου.
Ρίξε μια ματιά.


Χρήστος 18-11-13 21:46

Ελπίζω να βοηθηθείς...


Η ώρα είναι 10:55.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2