[Εκτύπωση] εκτυπωση τιμολογιου

[ChrisGT7]

Καλησπέρα Χρήστο,

Αντικατέστησε τον κώδικα στο προηγούμενο αρχείο που έχω ανεβάσει με τον παρακάτω:

Option Explicit

Sub EKTYPWSH_PARASTATIKOY()
    On Error GoTo InvalidFile
    Dim Shp As Shape
    
    Application.DisplayAlerts = False
    ActiveSheet.Copy
    With ActiveWorkbook
        For Each Shp In .ActiveSheet.Shapes
            If Shp.Type = msoAutoShape Then Shp.Delete
        Next
        
        .SaveAs Filename:=ThisWorkbook.Path & "\" & _
            [J5] & ", " & [D7] & ", " & Format([J3], "dd.mm.yy") & ".xlsx", FileFormat:=51
        .PrintOut
        .Close False
    End With
    [J5] = [J5] + 1
    Application.DisplayAlerts = True
    
InvalidFile:
    If Err.Number = 0 Then Exit Sub
    MsgBox "Σφάλμα αποθήκευσης!", vbCritical, "ΑΠΟΘΗΚΕΥΣΗ"
    Application.DisplayAlerts = True
End Sub

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

[ChrisGT7]

Καλησπέρα Γιώργο,

Δοκίμασε αν σε καλύπτει το συνημμένο αρχείο.

Τροποποιείς τον κώδικα σύμφωνα πάντα με τις ανάγκες σου.

[asterix]

Χρήστο χίλια ευχαριστώ να πω? ίσως και να είναι λίγο.... είσαι τέλειος.

[christakos]

Αρχική Δημοσίευση από ChrisGT7

Καλησπέρα Χρήστο,

Αντικατέστησε τον κώδικα στο προηγούμενο αρχείο που έχω ανεβάσει με τον παρακάτω:

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

Μια χαρά, κρατάει την εικόνα και όχι το shape.......

υπάρχει τρόπος και για τα commandΒuτtons?
δλδ ταυτόχρονα shapes και commandButtons??

και θα σε πω γιατι,
σε ένα Button έχω προσαρμόσει τον παρακάτω κώδικα για εμφάνιση κρύψιμο shapes

Private Sub cmdHelp_Click()
    If cmdHelp.Caption = "ΕΜΦΑΝΙΣΗ βοήθειες και επεξηγήσεις" Then
        
        cmdHelp.Caption = "ΑΠΟΚΡΥΨΗ βοήθειες και επεξηγήσεις"
        ThisWorkbook.Sheets("sheet1").Shapes("Help").Visible = True
        
    Else
    
        cmdHelp.Caption = "ΕΜΦΑΝΙΣΗ βοήθειες και επεξηγήσεις"
        ThisWorkbook.Sheets("sheet1").Shapes("Help").Visible = False
    
    End If
End Sub

δεν μπόρεσα να βρω κάτι αντίστοιχο, με ΕΝΑ shape να κρύβω και να εμφανίζω τα shapes που τα έκανα ομαδοποίηση με όνομα (Help) που γράφω επεξηγήσεις, αλλιώς δεν θα έβαζα commandButton. και μιας και το έβαλα εκμεταλλεύτηκα την αλλαγή του caption.

[ChrisGT7]

Γιώργο,

Σ' ευχαριστώ για τα καλά σου λόγια! :) Να 'σαι πάντα καλά!

Χρήστο,

Αντικατέστησε: If Shp.Type = msoAutoShape Then Shp.Delete
με: If Shp.Type <> 8 And Shp.Type <> 12 And Shp.Type <> 13 Then Shp.Delete

να δεις αν σε καλύπτει. Mπορείς να αναζητήσεις τους τύπους σχημάτων εδώ.

Ένας άλλος τρόπος ελέγχου είναι μέσω του ονόματος του σχήματος (ιδιότητα Name αντί για την Type).

[christakos]

Αρχική Δημοσίευση από ChrisGT7

Γιώργο,

Σ' ευχαριστώ για τα καλά σου λόγια! :) Να 'σαι πάντα καλά!

Χρήστο,

Αντικατέστησε: If Shp.Type = msoAutoShape Then Shp.Delete
με: If Shp.Type <> 8 And Shp.Type <> 12 And Shp.Type <> 13 Then Shp.Delete

να δεις αν σε καλύπτει. Mπορείς να αναζητήσεις τους τύπους σχημάτων εδώ.

Ένας άλλος τρόπος ελέγχου είναι μέσω του ονόματος του σχήματος (ιδιότητα Name αντί για την Type).

οκ ευχαριστώ
ευχαριστώ και το λινκ, θα το επεξεργαστώ.