[Εκτύπωση] Επιλογή στηλών πίνακα

[mdragon]

Καλημέρα σε όλους.
Θα ήθελα να ρωτήσω το εξής:
έχω έναν πίνακα και κάθε φορά για την εκτύπωσή μου θα πρέπει να αποκρύπτω κάποιες
στήλες (ποτέ οι ίδιες).
Υπάρχει τρόπος πριν την εκτύπωση να επιλέγω ποιες στήλες θα γίνουν απόκρυψη???



Ευχαριστώ εκ των προτέρων,
Μάρω

[kapetang]

Καλησπέρα

Μάρω, δες μια πρόταση στο συνημμένο.

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

[mdragon]

Γιώργο καλημέρα,
σε ευχαριστώ για την απάντηση σου.
θα το επεξεργαστώ και αν χρειαστεί θα επανέλθω.




Φιλικά,
Μάρω

[kapetang]

Μάρω, Καλημέρα

Καλύτερα να χρησιμοποιήσεις τον παρακάτω κώδικα:

Private Sub cmdHideCols_Click()
    Dim rngCol As Range, c As Range, rngHide As Range

    'Ορίζεται η περιοχή με τα ονόματα των στηλών
    Set rngCol = Range("tblColumns")
    Application.ScreenUpdating = False
    'εμφάνιση όλων των στηλών του πίνακα
    Range("tblData").EntireColumn.Hidden = False

    For Each c In rngCol
        If c.Offset(, 1) Then
            Set rngHide = Range("tblData[" & c & "]")
            rngHide.EntireColumn.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Στον κώδικα πρόσθεσα και την εντολή Application.ScreenUpdating, ώστε η απόκρυψη/εμφάνιση των στηλών να γίνεται ταχύτερα και ομαλότερα.

[mdragon]

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



Φιλικά,
Μάρω

[Spirosgr]

Καλημέρα
Θα έλεγα, να χρησιμοποιήσεις κάτι τέτοιο...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim c As Range, H_rng As Range, T_rng As Range
    Set H_rng = Range("Table1[#Headers]")
    Set T_rng = Range("Table1[#Totals]")
    If Not Intersect(Target, H_rng) Is Nothing Then
        Target.EntireColumn.Hidden = True
    ElseIf Not Intersect(Target, T_rng) Is Nothing Then
        Columns.Hidden = False
    Else
        Exit Sub
    End If
    Cancel = True
End Sub

ώστε να μην εξαρτάσαι, από την θέση, το πλάτος, το ύψος ... κλπ του πίνακα,
αλλά και από γραμμές ή «κουτάκια», που θα πρέπει να αλλάζεις κάθε φορά,
σε περίπτωση, οποιασδήποτε αλλαγής στον πίνακα.

Διπλό κλικ σε κεφαλίδα = κρύβει την συγκεκριμένη στήλη.
Διπλό κλικ σε total οπουδήποτε = εμφανίζει όλες.

Η εμφάνιση επηρεάζει όλο το φύλλο, οπότε (αν θες)
το τροποποιείς μόνο για το συγκεκριμένο list object
Σημείωση:
Όπου Table1 το όνομα του πίνακα...

[mdragon]

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



ΦΙλικά,
Μάρω

[Spirosgr]

Μάρω δεν κατάλαβες....
με ένα μόνο διπλό κλικ στην γραμμή συνόλου εμφανίζονται όλες...

[mdragon]

Δεν ξέρω γιατί, αλλά δεν μου δουλεύει όταν έχω άλλα αρχεία excel ανοιχτά.
Δυστυχώς όμως θα πρέπει κάποιες φορές να δουλεύω ταυτόχρονα.
Να σου πω όμως την αλήθεια μου, μου αρέσει με μία ματιά να βλέπω ποιες στήλες έχω με απόκρυψη και όχι να ψάχνω να βρω ποια λείπει. Είναι 28 βλέπεις......



Φιλικά,
Μάρω

[kapetang]

Καλησπέρα

Μάρω, στο συνημμένο έβαλα το κουμπί και τα πλαίσια επιλογής στο Sheet2.

Ο πίνακας υπέθεσα ότι βρίσκεται στο φύλλο Sheet1.

Αν το φύλλο που περιέχει τον πίνακα έχει άλλο όνομα, θα πρέπει να αλλάξει η γραμμή κώδικα: Set ws = Worksheets("Sheet1").

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