Θέμα: VBA αποθήκευση ως pdf

Εμφάνιση ενός μόνο μηνύματος
  #3  
Παλιά 22-12-20, 17:41
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
  
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή
Κάνε αντικατάσταση του κώδικα:


Κώδικας:
strFilename = PDFFolder & "strInvoiceNumber & "_" & StrDate & ".pdf"
    
    If Dir(strFilename, vbDirectory) <> "" Then
        i = 1
        While Dir(strFilename, vbDirectory) <> ""
            i = i + 1
            strFilename = PDFFolder & strInvoiceNumber & "_" & StrDate & "_V" & i & ".pdf"
        Wend
    End If
με τον κώδικα:

Κώδικας:
strFilename = PDFFolder & "ΤΠΥ" & strInvoiceNumber & "_" & StrDate & ".pdf"
    
    If Dir(strFilename, vbDirectory) <> "" Then
        i = 1
        While Dir(strFilename, vbDirectory) <> ""
            i = i + 1
            strFilename = PDFFolder & "ΤΠΥ" & strInvoiceNumber & "_" & StrDate & "_V" & i & ".pdf"
        Wend
    End If
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση