[Εκτύπωση] Κουμπι αποθηκευσης σε pdf

[skomat]

Καλημερα 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
Εχω κολλησει, θελω να αποθηκευσω μια σελιδα απο το συγκεκριμενο φυλλο και μου αποθηκευει και δυο αλλες κενες σελιδες. Τι κανω λαθος????