Πολλαπλή Εκτύπωση (Report) με Συγκεκριμένη τιμή σε Πεδίο

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Saimon
Δημοσιεύσεις: 3
Εγγραφή: 09 Νοέμ 2012 11:44

Πολλαπλή Εκτύπωση (Report) με Συγκεκριμένη τιμή σε Πεδίο

Δημοσίευση από Saimon » 28 Μάιος 2013 14:16

Καλησπέρα.
Από την βάση μου παίρνω ένα Report ( Τιμολόγιο ) το οποίο του λέω να εκτυπωθεί τρεις φορές με τον παρακάτω κώδικα

DoCmd.SelectObject acReport, "Print_Parastatikou", True
DoCmd.PrintOut acPrintAll, , , , 3

Αυτό που θα ήθελα να κάνω είναι ( σε ένα πεδίο πάνω στο Report ) πχ Skopos
Στην πρώτη εκτύπωση : Skopos = Πρωτότυπο
Στην δεύτερη εκτύπωση : Skopos = Αντίγραφο για λογιστήριο
Στην Τρίτη εκτύπωση : Skopos = Στέλεχος

Ευχαριστώ

del_gr
Δημοσιεύσεις: 10
Εγγραφή: 22 Νοέμ 2010 21:47
Τοποθεσία: Nafplio
Επικοινωνία:

Πολλαπλή Εκτύπωση (Report) με Συγκεκριμένη τιμή σε Πεδίο

Δημοσίευση από del_gr » 28 Μάιος 2013 17:33

Χρειάστηκε προ λίγο ημερών να κάνω το ίδιο πράγμα, οπότε αν σε βοηθάει:

Δίνω την εκτύπωση 2 φορές παιρνώντας και μια μεταβλητή ( 1, 2 κτλ ) ώς τελευταίο όρισμα :

Κώδικας: Επιλογή όλων

 DoCmd.OpenReport "Print_Parastatikou", acNormal, , , , 1
    DoCmd.OpenReport "Print_Parastatikou", acNormal, , , , 2
και μετά στο print event της έκθεσης ενημερώνεται ένα textbox :

Κώδικας: Επιλογή όλων

Private Sub Κεφαλίδα_έκθεσης_Print(Cancel As Integer, PrintCount As Integer)

If Me.OpenArgs = 1 Then
lbl_prototypo = "Πρωτότυπο"
Else
lbl_prototypo = "Αντίγραφο για λογιστήριο"
End If

end sub

Saimon
Δημοσιεύσεις: 3
Εγγραφή: 09 Νοέμ 2012 11:44

Πολλαπλή Εκτύπωση (Report) με Συγκεκριμένη τιμή σε Πεδίο

Δημοσίευση από Saimon » 28 Μάιος 2013 22:47

Ευχαριστω πολυ θα το δοκιμάσω αυριο και θα σου πω

del_gr
Δημοσιεύσεις: 10
Εγγραφή: 22 Νοέμ 2010 21:47
Τοποθεσία: Nafplio
Επικοινωνία:

Πολλαπλή Εκτύπωση (Report) με Συγκεκριμένη τιμή σε Πεδίο

Δημοσίευση από del_gr » 29 Μάιος 2013 00:55

Αν κάποιος ξέρει κάποιο καλύτερο τρόπο ας μας πεί, γιατί εμένα δεν με βολεύει με τον παραπάνω τρόπο :oops:

Saimon
Δημοσιεύσεις: 3
Εγγραφή: 09 Νοέμ 2012 11:44

Πολλαπλή Εκτύπωση (Report) με Συγκεκριμένη τιμή σε Πεδίο

Δημοσίευση από Saimon » 30 Μάιος 2013 08:42

Καλημέρα αν και δεν με βολεύει τόσο ο τρόπος σου γιατί ήθελα να αποφύγω το να δώσω τρείς φορές την ίδια εκτύπωση ( έτσι μπορώ να πάρω το αποτέλεσμα που θέλω με διαφορετικό τρόπο στέλνοντας κάθε φορά πριν την εκτύπωση την τιμή σε ένα πεδίο μιας ανοιχτής φόρμας που θα το βλέπει μετά η έκθεση) το γράφω για να υπάρχει ακόμα μια λύση.
Όπως και να χει σε ευχαριστώ για τον χρόνο σου είναι κάτι που δεν γνώριζα και μπορεί να μου φανεί χρήσιμο στο μέλλον.

Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες