30-07-14, 18:50
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλησπέρα
Έχεις αυτούς τους 2 κώδικες σε module Κώδικας: Sub ShowUserform()
UserForm1.Show
End Sub
Sub OpenUserform()
UserForm1.Show
End Sub
Το κουμπί που ανοίγει την φόρμα είναι συνδεμένο με τον (sub OpenUserform) δεύτερο.
Διέγραψε τον πρώτο και βάλε τον τίτλο της sub δηλαδή μόνο το OpenUserform μετά από κάθε PR1.PrintPreview, PR2.PrintPreview και PR3.PrintPreview
και πριν το End If ή Ακόμα καλύτερα μόνο μια φορά μετά το τελευταίο End If και πριν το End sub.
|