Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Εκτύπωση] Εκτύπωση φύλλου excel σε pdf

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 24-08-18, 15:29
Όνομα: ΑΛΕΞΑΝΔΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 29-05-2012
Μηνύματα: 44
Προεπιλογή Εκτύπωση φύλλου excel σε pdf

Καλησπέρα ομάδα. Ένα φύλλο excel (η καλυτερα μια περιοχη ενος φυλλου), μπορεί να εκτυπωθεί- αποθηκευτεί σε μορφή pdf μέσω μακροεντολης, σε ενα προκαθορισμενο σημείο??
Απάντηση με παράθεση
  #2  
Παλιά 24-08-18, 15:54
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.156
Προεπιλογή

Αλέξανδρε δοκίμασε τον κώδικα:

Κώδικας:
Sub SaveAsPDF()
    'Αποθηκεύει σε Pdf το ενεργό φύλλο
    Dim rng As Range, sPath As String
    On Error GoTo errHandler
    Set rng = ActiveSheet.UsedRange
    
    ' Η αποθήκευση γίνεται στο φάκελο του βιβλίου εργασίας
    ' και το όνομα έχει τη μορφή: Sheet_20180824_150835
    sPath = ThisWorkbook.Path & "\Sheet_" & Format(Now(), "yyyymmdd\_hhmmss")

    rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:="" & sPath, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True
    Exit Sub
errHandler:
    MsgBox Err.Description, vbCritical, "Error #" & Err.Number
End Sub
Υ.Γ Το βιβλίο πρέπει να έχει αποθηκευτεί πριν από τη χρήση του κώδικα
Απάντηση με παράθεση
  #3  
Παλιά 24-08-18, 15:55
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Καλό είναι, να κάνουμε μια έρευνα στο forum, πριν ζητήσουμε κάτι.

Πολλά παραδείγματα pdf...ένα από αυτά (τυχαίο) εδώ:
http://www.ms-office.gr/forum/excel-...si-os-pdf.html
Απάντηση με παράθεση
  #4  
Παλιά 25-08-18, 07:27
Όνομα: ΑΛΕΞΑΝΔΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 29-05-2012
Μηνύματα: 44
Προεπιλογή

Καλημέρα. Οκ συγγνώμη για το ποστ που δεν έκανα αναζήτηση, ακόμα μαθαίνω. Για να αποθηκεύσουμε σε pdf μια περιοχή ενός φίλου σε συγκεκριμένο φάκελο? Δηλαδή έστω ότι έχουμε το βιβλίο test και το φύλλο test1, θέλω να αποθηκευσω την περιοχη A1 έως G7, του φύλλου test1, στον φάκελο c:/user/data/test1.pdf. Θα με βόλευε η μη προηγούμενη αποθήκευση του βιβλίου. Σας ευχαριστώ για την διάθεση του πολύτιμου χρόνου σας.
Απάντηση με παράθεση
  #5  
Παλιά 25-08-18, 08:14
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Καλημέρα
Ναι είναι ακριβώς αυτό που ζητάς, σε αντίθεση με τον κώδικα που πρότεινε ο Γιώργος
ο οποίος εκτυπώνει όλη την UsedRange, και όχι συγκεκριμένη περιοχή...
Κώδικας:
Sub SaveFileAsPDF()
    Dim SavePath As String, FolderName As String
    Dim UName As String, WhereToSave As String
    Dim PrintRange As Range, FileName As Range

    Set PrintRange = Sheet1.Range("myPrintRange")'Όνομα περιοχής που θα εκτυπωθεί
    Set FileName = Sheet1.Range("myInvNumber")'Όνομα περιοχής που περιέχει Αρ. Τιμολογίου
    
    UName = "Spirosgr"'Όνομα χρήστη
    WhereToSave = "Desktop"'Σημείο υπολογιστή που θα αποθηκευθεί
    FolderName = "INVBackUp"'Όνομα φακέλου αποθήκευσης
    
    SavePath = "C:\Users\" & UName & "\" & WhereToSave & "\" & FolderName
    
    PrintRange.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
                                   SavePath & "\" & FileName & ".pdf", Quality:= _
                                   xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                   OpenAfterPublish:=False
End Sub
Στον κώδικα αρκεί να αλλάξουμε τις παραμέτρους του παραδείγματος,
με αυτά που θέλουμε στο βιβλίο μας
*Όπου έχει πράσινη γραμματοσειρά

Set PrintRange = Sheet1.Range("myPrintRange") ονόμασε την περιοχή σε myPrintRange ή πληκτρολόγησε
Set PrintRange = Sheet1.Range("a1:g7")

Set FileName = Sheet1.Range("myInvNumber") ονόμασε ένα κελί σε myInvNumber ή όπως θέλεις και βάλε μέσα τον τίτλο pdf ή
άλλαξέ το με μεταβλητή τίτλου

UName = "Spirosgr" άλλαξε με το δικό σου όνομα χρήστη
WhereToSave = "Desktop" κράτησέ το ή άλλαξε με ότι θέλεις πχ Documents

FolderName = "INVBackUp" άλλαξέ το με όνομα φακέλου των pdf σου πχ MyPdf
*Στο σημείο που θα αποθηκεύσεις πχ Desktop, βάλε φάκελο με το όνομα αυτό

Τέλος το OpenAfterPublish:=False ή True εμφανίζει ή όχι το pdf, μετά την αποθήκευση...

Σημείωση
Το path αποθήκευσης, μπορεί να μετατραπεί στο ίδιο path με το αρχείο excel
Ο κώδικας αφορά το παράδειγμα του link και μόνο (post #2)
Απάντηση με παράθεση
  #6  
Παλιά 25-08-18, 08:27
Όνομα: ΑΛΕΞΑΝΔΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 29-05-2012
Μηνύματα: 44
Προεπιλογή

Σε ευχαριστώ πάρα πολύ, θα το δοκιμάσω και θα ενημερώσω σχετικά το forum, σε ευχαριστώ!!!
Απάντηση με παράθεση
  #7  
Παλιά 25-08-18, 08:29
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Ρίξε μια ματιά και στην πιο κάτω εικόνα
Συνημμένα Thumbnails
Εκτύπωση φύλλου excel σε pdf-screenshot_2.jpg  
Απάντηση με παράθεση
  #8  
Παλιά 25-08-18, 09:10
Όνομα: ΑΛΕΞΑΝΔΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 29-05-2012
Μηνύματα: 44
Προεπιλογή

Σπύρο καλημέρα (μου επιτρέπεις φυσικά να σου μιλάω στον ενικο), εκανα καποιες αλλαγες στον κωδικα, σχετικα με την περιοχη εκτυπωσης, το αρχειο να σημειωσω δεν είναι τιμολογιο, απλα είναι ένα αρχειο καταγραφης αποτελεσματων ενός σωματειου, εσβησα μια γραμμη κωδικα, και μου βγαζει το ακολουθω μυνημα που σου επισυναπτω. Τι κανω λαθος?? Tο φυλλο ονομάζετε Apografi, και η περιοχη εκτυπωσης είναι από το A1 εως το AA69. Γιατι θα πρεπει να ονομασω ένα κελι που μου εστειλες στο τελευταιο παράδειγμα σου?? Σε ευχαριστω πολύ εκ των προτερων.!!!
Συνημμένα Thumbnails
Εκτύπωση φύλλου excel σε pdf-test1.jpg  
Απάντηση με παράθεση
  #9  
Παλιά 25-08-18, 09:30
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Η εικόνα δεν φαίνεται καλά, στο τι πρόβλημα υπάρχει...

Όμως εκεί που λες Set PrintRange = Apografi.Range("....
το Apografi είναι λάθος...
Θα βάλεις, το κωδικό όνομα του φύλλου, πχ Sheet1
ή θα ονομάσεις το κωδικό όνομα του φύλλου, Apografi.
Απάντηση με παράθεση
  #10  
Παλιά 25-08-18, 09:32
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Για την ονομασία του κελιού...

Δεν είναι απαραίτητο, εκτός αν μπορείς (όπως σου είπα) να βάλεις μεταβλητή με τίτλο .pdf
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Excel07] Κατάργηση προστασίας φύλλου στο excel matinav Excel - Ερωτήσεις / Απαντήσεις 4 07-03-18 20:33
[Γενικά] Ενημέρωση φύλλου excel από βάση δεδομένων bilakos26 Excel - Ερωτήσεις / Απαντήσεις 8 29-09-17 02:54
[VBA] VBA - Πολλαπλή Αντιγραφή ΦΥΛΛΟΥ Excel ΕΛΕΝΙΤΣΑ Excel - Ερωτήσεις / Απαντήσεις 8 20-03-15 14:15
[VBA] Αυτόματη αντιγραφή φύλλου Excel σε νέο βιβλίο Tasos Excel - Tips & Tricks 0 02-04-12 17:51
Μεταφορά στήλης φύλλου Excel σε πεδίο πίνακα Meteora Visual Basic for Applications (VBA) 11 13-10-10 10:54


Η ώρα είναι 11:32.