26-11-12, 02:28
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.011
| |
Καλημέρα!
Αλέξανδρε δοκίμασε: Κώδικας: Private Sub CmdPdf_Click()
If Dir(Me.Fname & "", vbDirectory) <> "" Then
ShellExecute 0, "open", Chr(34) & Me.Fname & Chr(34), "", "", SW_SHOW
End If
End Sub
Κανονικά θα έπρεπε να υπάρχει κάποια ρουτίνα αποσφαλμάτωσης στον κώδικα σου.
Καλή συνέχεια!
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |