[VBA] Επιλογή αριθμού εκτυπώσεων αντιγράφων

[gfevran]

Καλησπέρα,
υπάρχει τρόπος από φόρμα να επιλέγουμε αριθμό αντιγράφων προς εκτύπωση.
Π.Χ. ας πούμε η επιλογή να γίνεται από LisrBox, ComboBox,τυχαία το λέω αυτό, γιατί δεν έχω,
ιδέα αν γίνεται και πως μπορεί να γίνει.

Ευχαριστώ, για όποια απάντηση.

[Tasos]

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

Γιώργο δοκίμασε:

Dim NumberOfCopies As Integer 'Ορισμός μεταβλητής
    NumberOfCopies = Application.InputBox(Prompt:="Επιλέξτε αριθμό αντίτυπων",  _
                                                                Title:="Αριθμός αντίτυπων...", Default:=1, Type:=1)
    If NumberOfCopies < 1 Then Exit Sub

Για να εκτυπώσεις:

PR1.PrintOut Copies:=NumberOfCopies

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

Τάσος

[gfevran]

Τάσο καλησπέρα,
προσπαθώ να κατανοήσω τον κώδικα που μου προτείνεις,
δυσκολεύομε να καταλάβω ποιό θα είναι το στοιχείο που θα εμφανίζεται στη UserForm,
ώστε να πληκτρολογώ τον επιθυμητό αριθμό για εκτύπωση.
είμαι σε πολύ αρχικό στάδιο σε κώδικα vba.
Σ΄ Ευχαριστώ για την άμεση απάντηση.

Φιλικά
Γιώργος

[Spirosgr]

Σε αυτήν την ερώτηση σου Γιώργο
http://www.ms-office.gr/forum/excel-...ntpreview.html
στο post #4 υπάρχει ήδη η απάντηση (διαφορετική βέβαια από του Τάσου).
Υποθέτω μπορείς να βάλεις στην φόρμα ένα Combo που θα έχει αριθμούς πχ 1 - 10
για την επιλογή σελίδων.

Όπως και στην προηγούμενη ερώτησή σου
δεν καταλαβαίνω γιατί δεν διαβάζεις τις απαντήσεις και επαναλαμβάνεις
τις ίδιες ερωτήσεις...

[gfevran]

Σπύρο καλησπέρα
Είχα επιχειρήσει με τη δική σου πρόταση αλλά δεν τα κατάφερα,
προσπαθώντας να συντάξω τον κώδικα μου έβγαζε Error.
επίσης δεν ξέρω πως να βάλω αριθμούς στην combobox.

τη μεταβλητή την έβαλα (Dim NumberOfCopies As Integer 'Ορισμός μεταβλητής)
αυτο δεν ξέρω που να το βάλω (NumberOfCopies = Application.InputBox(Prompt:="Επιλέξτε αριθμό αντίτυπων", _
Title:="Αριθμός αντίτυπων...", Default:=1, Type:=1)
If NumberOfCopies < 1 Then Exit Sub )
Για να εκτυπώσεις:
Κώδικας:
και αυτο το έβαλα (PR1.PrintOut Copies:=NumberOfCopies)

[Spirosgr]

Αυτός είναι ο κώδικας για την προεπισκόπηση

Private Sub cmdPrintPreview_Click()
    Dim PR1 As Range, PR2 As Range, PR3 As Range    'Ορισμός μεταβλητών
    Set PR1 = Φύλλο2.Range("$F$6:$L$16")    ' Set στις περιοχές εκτύπωσης
    Set PR2 = Φύλλο3.Range("$F$6:$L$16")
    Set PR3 = Φύλλο5.Range("$A$4:$N$23")

    If OptionButton1 Then    ' Εκκίνηση [1]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR1.PrintPreview    ' Κάνε προεπισκόπηση
        ShowUF    ' Επαναφόρτωσε
    End If
    If OptionButton2 Then    ' Επανάληψη όσο χρειάζεται [2]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR2.PrintPreview    ' Κάνε προεπισκόπηση
        ShowUF    ' Επαναφόρτωσε
    End If
    If OptionButton3 Then    ' Επανάληψη όσο χρειάζεται [3]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR3.PrintPreview    ' Κάνε προεπισκόπηση
        ShowUF    ' Επαναφόρτωσε
    End If
End Sub

και αυτός για την εκτύπωση με την προσθήκη του Τάσου

Private Sub cmdPrint_Click()
    Dim PR1 As Range, PR2 As Range, PR3 As Range    'Ορισμός μεταβλητών
    Dim NumberOfCopies As Byte ' Από 0 έως 255
    NumberOfCopies = Application.InputBox(Prompt:="Επιλέξτε αριθμό αντίτυπων", _
                                          Title:="Αριθμός αντίτυπων...", Default:=1, Type:=1)
    Set PR1 = Φύλλο2.Range("$F$6:$L$16")    ' Set στις περιοχές εκτύπωσης
    Set PR2 = Φύλλο3.Range("$F$6:$L$16")
    Set PR3 = Φύλλο5.Range("$A$4:$N$23")
    If NumberOfCopies < 1 Then Exit Sub
    If OptionButton1 Then    ' Εκκίνηση [1]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR1.PrintOut Copies:=NumberOfCopies    ' Κάνε εκτύπωση
        ShowUF    ' Επαναφόρτωσε
    End If
    If OptionButton2 Then    ' Επανάληψη όσο χρειάζεται [2]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR2.PrintOut Copies:=NumberOfCopies    ' Κάνε εκτύπωση
        ShowUF    ' Επαναφόρτωσε
    End If
    If OptionButton3 Then    ' Επανάληψη όσο χρειάζεται [3]
        Unload Me    ' Ξεφόρτωσε ώστε να μην υπάρχει διένεξη
        PR3.PrintOut Copies:=NumberOfCopies    ' Κάνε εκτύπωση
        ShowUF    ' Επαναφόρτωσε
    End If
End Sub

Δεν βάζουμε το Combobox για να μην πάμε πιο μακρυά
Δες τους και σύγκρινε

[gfevran]

Γεια σου Σπύρο,
μου έβγαλε σφάλμο στο σημείο του κώδικα -> Dim NumberOfCopies As Byte 'από 0 έως 255.
με απενεργοποιημένο το σημείο αυτό του κώδικα 'Dim NumberOfCopies As Byte 'από 0 έως 255,
βάζω π.χ. 2 ή 3 αντίγραφα και εκτυπώνει πάντα 1
ανεβάζω συννημένο για το σφάλμα.

Παρ’ όλα αυτά θα προτιμούσα με combobox,
όποτε μπορείς και έχεις χρόνο.

Ευχαριστώ

[Spirosgr]

Λοιπόν Γιώργο
Στην περίπτωση του δεύτερου κώδικα το λάθος στο χτυπάει γιατί
έχεις διπλότυπα δηλωμένη μεταβλητή (*βλέπε φωτογραφία).
Κατάργησε μια από τις δύο γραμμές.
Πέρα απ ' αυτό δεν είναι ενεργοποιημένο και το Option Explicit
που «αναγκάζει» την δήλωση των μεταβλητών.

Δηλαδή εκτύπωσες χαρτιά (πραγματική εκτύπωση) και δεν έκανε 2 ή 3 αντίγραφα ;

«Παρ’ όλα αυτά θα προτιμούσα με combobox,»
Μια χαρά είναι το Inputbox !!!

[gfevran]

Καλημέρα Σπύρο,
Κατ' αρχήν κατάργησα τη μια από τις δύο γραμμές όπως μου είπες.
Όχι δεν έκανα σε χαρτί εκτυπώσεις, έχει χαλάσει η κεφαλή του εκτυπωτή μου,
αλλά έβλεπα ότι ήταν σε αναμονή στην ουρά πάντα ένα έγγραφο ενώ έδινα για εκτύπωση,
π.χ. 2 ή 3.

Διορθωτικό σημείωμα
Εκ παραδρομής και μη ώριμη σκέψη διατυπώθηκε η φράση «Παρ’ όλα αυτά θα προτιμούσα με combobox,»
ως εκ τούτου αποσύρω την πιο πάνω φράση, και θα έλεγα, θα με ενδιέφερε για λόγους εκμάθησης, με combobox.
Ζητώ Συγνώμη.

Φιλικά
Γιώργος

[Spirosgr]

Καλημέρα
Ανεξάρτητα του τι φαίνεται η εκτύπωση θα γίνει κανονικά στα επιλεγμένα αντίγραφα.
Το γιατί εμφανίζει πάντα 1 αντίγραφο ο εκτυπωτής κάποια ώρα θα το αναλύσουμε.