Κουμπι αποθηκευσης σε pdf
 

Καλημερα forum.
Εχω ενα βιβλιο excel που κανουμε διαφορες εργασιες. Μια απο αυτη ειναι να αποθηκευουμε το φυλλο excel σε pdf αρχειο. Εχω φτιαξει αν κουμπι με τον κωδικα και πατοντας το μου αποθηκευει το φυλλο σε μια συγκεκριμενη διαδρομη σε αρχειο pdf. Προσθεσα και ενα φυλλο ακομα στο αντοιστοιχο βιβλιο, εφτιαξα το κουμπι, εβαλα τον κωδικα, και πατοντας το μου ζηταει ποσες σελιδες θα αποθηκευσει (σωστον) του βαζω την πρωτη, και μου αποθηκευει 3!!!!
Ο κωδικας ειναι...

Private Sub CommandButton1_Click()
Dim rng As Range, sPath As String, vrng As Variant, i As Long


On Error GoTo errHandler
vrng = Array("", "a1:aa55", "a1:aa138", "a1:aa207") 'προσθέτουμε σελίδες
i = InputBox("Δώσε τον αριθμό σελίδων 1 ή 2 ή 3") 'προσθέτουμε ή 4 ή 5 κλπ

Set rng = Me.Range(vrng(i))
sPath = "\\sssssssssssss\Data ssssssssss\ssssssssssΣ\ssssssssss\sssssssssss\apo grafi.pdf" 'βάλε αυτό που θέλεις

rng.ExportAsFixedFormat Type:=xlTypePDF, FileName:="" & sPath, _
Quality:=xlQualityMaximum, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Exit Sub
errHandler:
MsgBox Err.Description, vbCritical, "Error #" & Err.Number
End Sub
Εχω κολλησει, θελω να αποθηκευσω μια σελιδα απο το συγκεκριμενο φυλλο και μου αποθηκευει και δυο αλλες κενες σελιδες. Τι κανω λαθος????

Καλησπέρα Αλέξανδρε,

Πιστεύω πως τα εύρη που έχεις δηλώσει (Α1:ΑΑ55, Α1:ΑΑ138, Α1:ΑΑ207) υπερβαίνουν τη μία σελίδα και γι' αυτό έχεις περισσότερες από μία σελίδα.

Επέλεξε π.χ. το πρώτο εύρος με το ποντίκι, όρισέ το ως περιοχή εκτύπωσης και κάνε μια προεπισκόπηση. Αν έχεις τρεις σελίδες, τότε θα πρέπει να μικρύνεις την περιοχή εκτύπωσης.

Δοκίμασα με πιο μικρά εύρη τον κώδικά σου και αποθηκεύει μια σελίδα κανονικά.

Καλημερα. Οκ σε ευχαριστω με βοηθησες πολυ. το εφτιαξα. Και παλι καλημερα.