[sotisanis]

Τασο καλησπερα

Καθε φορα που παταω αποθηκευση (φτιαγμενο κουμπι με vba) τοτε συνεχεια μου βαζει μπροστα το νουμερο της ημερομηνιας.

ενω οταν κανω αποθηκευση ως pdf με τον παρακατω κωδικα τοτε το αποθηκευει μια χαρα

εγω θελω καθε φορα να αποθηκευει εκ νεου ενα αρχειο με νεα αποθηκευση.
οχι να σβηνει το παλιο
πχ αν 7 μερες το ανοιξεις 7 φορες τοτε να εχει 7 διαφ αποθηκευσεις

Public Sub SaveWorksheetsAsPDF()


On Error Resume Next

Dim i As Integer
Dim sName As String
Dim sOutputPath As String
 Dim strWBOnly As String         'workbook path and name without ".xls"
    Dim strSaveWithDate As String
    Dim strWBFullName As String



For i = 1 To ActiveWorkbook.ActiveSheet.Count

strWBFullName = ActiveWorkbook.FullName
strWBOnly = Left(strWBFullName, Len(strWBFullName) - 4)
sName = strWBOnly & "." & Format(Now(), "dd-mm-yyyy")


Debug.Print ActiveSheet(sName).Index & " " & sOutputPath & sName

ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sOutputPath & sName, Quality:=xlQualityMinimum _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Next

End Sub