|
Εκτύπωση με αποθήκευση? Καλησπέρα και πάλι. Θέλω την βοήθεια σας .έχω βάλει για εκτύπωση αυτό, ActiveWindow.SelectedSheets.PrintOut Copies:=2 Dim NewFN As Variant ' Copy Invoice to a new workbook ActiveSheet.Copy NewFN = "C:\Documents and Settings\bill\B\TIM-" & Range("C11").Value & ".xlsx" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close Πριν κάνει την εκτύπωση να βγάζει μήνυμα με επιλογή ναι η όχι, να εκτυπώνει μόνο το Φύλλο1 και τη πρέπει για να μπορεί στο save να γραφή όχι μόνο από το κελί (c11 ) αλλά και από αλλά κελία? Ευχαριστώ. |
Καλησπέρα Το 1ο μισό της ερώτησης είναι συγκεκριμένο αλλά το 2ο μισό είναι αόριστο...οπότε θέλει να θέσεις ένα πιο ρεαλιστικό σενάριο...προφανώς να δημιουργήσεις και να ανεβάσεις ένα δείγμα... |
1 Συνημμένο(α) Έχεις δικό Χρηστό ανέβασα παράδειγμα Καλησπέρα και πάλι. Θέλω την βοήθεια σας .έχω βάλει για εκτύπωση αυτό, ActiveWindow.SelectedSheets.PrintOut Copies:=2 Dim NewFN As Variant ' Copy Invoice to a new workbook ActiveSheet.Copy NewFN = "C:\Documents and Settings\bill\B\TIM-" & Range("C11").Value & ".xlsx" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close Πριν κάνει την εκτύπωση να βγάζει μήνυμα με επιλογή ναι η όχι, να εκτυπώνει μόνο το Φύλλο1 και τη πρέπει για να μπορεί στο save να γραφή όχι μόνο από το κελί (c11 ) αλλά και από αλλά κελία? Ευχαριστώ. |
Καλημέρα Μια 1η προσέγγιση στο ζητούμενο, πάνω στην οποία θα μπορούσες να στηριχτείς και να επεκταθείς... |
Καλημέρα φιλέ Χρηστό. Ευχαριστώ πολύ για την βοήθεια σου και είναι αυτό που ζητώ. Το μόνο που μου βγάζει σφάλμα είναι αυτό(ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFNPdf _ , Quality:=xlQualityStandard, IncludeDocProperties:=True _ , IgnorePrintAreas:=False, OpenAfterPublish:=False) Και δεν αποθηκεύει το pdf. Ευχάριστο και πάλι |
Καλημέρα Κατ, αρχήν Βασίλη, καλό είναι να μην γράφεις με κεφαλαία αλλά με μικρά γράμματα. Τώρα Το ίδιο αρχείο, ανέβασες πριν λίγες μέρες και αρχίσαμε να κάνουμε, μια κουβέντα, σχετικά με τους τύπους που περιέχει. Δεν καταλαβαίνω, γιατί το ανέβασες και πάλι, σε άλλο μέρος. Επιμένω, στο να αλλάξουν οι τύποι, διότι αν είναι πράγματι τιμολόγιο, δεν μπορείς να το έχεις με αυτήν την μορφή. Πολύ καλά έκανες και έψαξες μέσα στο forum, (όπως σου είχα πεί) και βρήκες κώδικες, για να κάνεις την δουλειά. Κάποιοι κώδικες μάλιστα, είναι παλιοί δικοί μου. Δεν χρειάζεται, να έχεις τόσες πολλές modules, με ένα κώδικα η κάθε μια. Ο κώδικας PrintDOC στην module10 είναι ένας κώδικας, που είχα παλιά και εκτυπώνει αντίγραφα με διαφορετικό χαρακτηρισμό το καθ' ένα. Για να χρησιμοποιηθεί πρέπει να ορίσετε τις ονομασίες. Για να μην βγάζει σφάλμα, ο κώδικας του pdf, πρέπει να μην έχεις συγχωνευμένα κελιά, εκεί που «παίρνει» τα ονόματα, και στον ορισμό του string NewFNPdf δεν ξέρει ποιά Range να πάρει, γιατί μπροστά από το Range, πρέπει να οριστεί το φύλλο πχ Sheet1.Range("κελί") ή να ονομαστεί η Range πχ Range("FName") , Range("LName"). |
Σπύρο, δεν το γνώριζα αυτό με τα συγχωνευμένα κελιά...ίσως γιατί τα αποφεύγω οπότε δεν το είδα ποτέ στην πράξη! Ευχαριστώ για τις διευκρινίσεις... |
Φιλέ Σπύρο δεν κατάλαβα που έχω γράψει με κεφαλαία γιατί με μικρά τα γραφώ Το θυμάμαι για αυτό που μου είχες πει αλλά το πάω ψάχνοντας γι τα υπόλοιπα γιατί δεν έχω διόρθωση αυτό που έχεις πει .τα modules όταν το ολοκληρώσω θα τα αφαιρέσω. Τώρα λέω να βάλω την μέθοδο του Χρήστου που είναι στο modules που λέει save Αλλά θέλω σε αυτό να προστάσουμε να εκτυπώνει μόνο το φύλλο 1 Αν κάνω κάποια λάθει συγγνώμη εκ των πρότερων |
Δεν εκτυπώνει το φύλλο 1 ??....εγώ το κάνω !!.....τι εννοείς?? |
Παράθεση:
Δεν είναι κακό, αλλά κουράζουν πολύ στο διάβασμα... |
A οκ Σπύρο .να πω την αλήθεια σε εκτύπωσα γιατί δεν έχω εδώ εκτυπωτή αλλά στην προεπισκόπηση έβλεπα και το φύλλο 2 γιατί και το ανέφερα. |
Εντάξει Σπύρο την επομένη δεν θα το κάνω Και πάλι ευχαριστώ για όλα |
... δες το λίγο καλύτερα!!! :) |
για αυτο(A οκ Σπύρο .να πω την αλήθεια σε εκτύπωσα γιατί δεν έχω εδώ εκτυπωτή αλλά στην προεπισκόπηση έβλεπα και το φύλλο 2 γιατί και το ανέφερα. )Χρηστο ηθελα να πω.σορι φιλε |
Καλημέρα φιλέ Χρήστο .τελικά εκτυπώνει και τα δυο φύλλα .μπορείς να βοηθήσεις για να εκτυπώνει μόνο για το ένα φύλλο? |
2 φύλλα ή 2 σελίδες? Μήπως εκτυπώνεις 2 αντίτυπα? ... δεν ξέρω ... εγώ δεν το βλέπω το πρόβλημα... |
Καλησπέρα επειδή τα κουμπιά που έχω βάλει είναι στο δεύτερο φύλλο βγάζει και αυτά. Σε εκτυπωτή που βγάζει μπρος πίσω μου έβγαλε το τιμολόγιο μπροστά και τα κουμπιά πίσω .του έβαλα να βγάζει δυο αντίτυπα αλλά κάνει και στα δυο το ίδιο . |
:) ναι.....εκτυπώνεις 2 σελίδες....αυτό πρέπει να φαίνεται και στην προεπισκόπηση αλλαγών σελίδας! Πήγαινε Προβολή>>Προεπισκόπηση αλλαγών σελίδας...και τράβα την παχιά μπλε γραμμή αριστερά απ' τα κουμπιά (τώρα προφανώς είναι δεξιά απ' τα κουμπιά). |
Είσαι άπαικτος. αυτό ήταν ευχαριστώ. Να κάνω και μια ερώτηση? Για να μην ψάχνω . θέλω την γραμμή στοιχείων από το φύλλο 2 (όνομα ,επώνυμο κλπ) με πάτημα επάνω να στο επώνυμο ας πούμε να πηγαίνουν εκεί που τα πηρέ , δηλαδή στα στοιχεία πελάτη . είναι δύσκολο? |
:) ... θα το ξαναγράψεις? |
Είσαι άπαικτος. αυτό ήταν ευχαριστώ. Να κάνω και μια ερώτηση? Για να μην ψάχνω . θέλω την γραμμή στοιχείων από το φύλλο 2 (όνομα ,επώνυμο κλπ) με πάτημα επάνω να στο επώνυμο ας πούμε να πηγαίνουν εκεί που τα πηρέ , δηλαδή στα στοιχεία πελάτη . είναι δύσκολο? |
Ανέβασε ένα δείγμα....εγώ δεν έχω δεδομένα σε φύλλο 2... |
1 Συνημμένο(α) αυτο φιλε μου σορι |
φιλέ Χρήστο το ειδές το παράδειγμα μου |
φιλέ Χρήστο το ειδές το παράδειγμα μου |
1 Συνημμένο(α) Παιδιά και πάλι καλησπέρα. Μήπως μπορεί κάνεις να με βοηθήσει σε αυτό? θέλω την γραμμή στοιχείων από το φύλλο 2 (όνομα ,επώνυμο κλπ) με πάτημα επάνω να στο επώνυμο ας πούμε να πηγαίνουν εκεί που τα πηρέ , δηλαδή στα στοιχεία πελάτη |
| Η ώρα είναι 10:45. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.