Forum - VBA Print Preview

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Print Preview (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2323-print-preview.html)

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

Καλησπέρα!

Κώδικας:

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

Τάσος

Καλημέρα σε όλους
Τάσο πρόβλημα παραμένει το ίδιο δεν εμφανίζει τα στοιχεία έλεγχου στο 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

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

Καλημέρα!

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

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

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

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

Φιλικά

Τάσος

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