[VBA] Print Preview

[anestaki]

Καλησπέρα και πάλι
Στην εντολή ActiveWindow.SelectedSheets.PrintPreview από φόρμα στο Preview δεν εμφανίζετε κανένα στοιχείο έλεγχου.
Υπαρχή τρόπος εμφάνισης των στοιχείων.
Επίσης στης φόρμες πως γίνεται να μην υπαρχή το στοιχείο κλεισίματος

[Tasos]

Καλησπέρα!

Option Explicit

Private Sub cmdPrintPreview_Click()
    Me.Hide
    Sheet1.PrintPreview  'Είναι πιο σίγουρο να αποφεύγεται η έκφραση "ActiveWindow.SelectedSheets" _
                          για λόγους που αναφέρθηκαν στο προηγούμενο σου θέμα.
    
    Me.Show
End Sub

' Κλείνει τη φόρμα:

Private Sub cmdUnloadMe_Click()
    Unload Me
End Sub


' Ακύρωση κλεισίματος από το κουμπί του παραθύρου της φόρμας:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = CloseMode <> vbFormCode
End Sub

Τάσος

[anestaki]

Καλημέρα σε όλους
Τάσο πρόβλημα παραμένει το ίδιο δεν εμφανίζει τα στοιχεία έλεγχου στο PrintPreview και δεν μπορώ να το κλείσω με αποτέλεσμα να κολάει το excel.
Έψαξα στο ιντερνέτ και από ότι κατάλαβα (τα αγγλικά μου δεν με βοηθάνε και πολύ) το πρόβλημα είναι στο excel 2007 αλλά δεν βρήκα κάποια λύση.
Η εντολή που χρησιμοποιώ είναι:

Private Sub ComboBox34_Change()
If ComboBox34.Text = "Προεπισκόπηση" Then
Unload Me
Φύλλο4.PrintPreview
Application.WindowState = xlMaximized
Windows(1).WindowState = xlMaximized
‘(Εδώ έχω την εντύπωση ότι είναι το πρόβλημα)
Φύλλο1.Select
UserForm4.Show
 Else
ComboBox35.Text = "Εκτύπωση"
Unload Me
Φύλλο4.Select
Application.WindowState = xlMaximized
Windows(1).WindowState = xlMaximized
Application.Dialogs(xlDialogPrint).Show
Φύλλο1.Select
UserForm4.Show
        End If
End Sub

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

[Tasos]

Καλημέρα!

Αγαπητέ Γιώργο, δεν γνωρίζω τι θέλεις να επιτύχεις.

Μπορώ μόνο να σου δώσω ένα λειτουργικό παράδειγμα στο συνημμένο.

Αν το παράδειγμα αυτό δεν λειτουργήσει σημαίνει ότι η το σύστημα σου έχει πρόβλημα.

ΥΓ: Θα πρέπει να διαθέτεις αρκετές γνώσεις τόσο στην VB όσο και στο αντικείμενο Excel για να εκμεταλλευθείς πλήρως τα παραδείγματα που σου δίνουμε.


Φιλικά

Τάσος

[anestaki]

Καλησπέρα σε όλους
Τάσο με παίδεψε αρκετά αλλά κάτι κατάφερα .
Σε ευχαριστώ και πάλι .