[sotisanis]

Παιδια το εκανα να επισυνάπτει το pdf
Αυτο που δεν βρηκα ακομα ειναι πως μπορω να βαλω για κειμενο τρεις γραμμες πχ Β40 Β41ΚΑΙ Β47
Καποια βοηθεια για αυτο?

Public Sub Save_ActSht_as_Pdf()
    ' Saves active sheet as PDF file.

    Dim Name As String
    
    Name = ThisWorkbook.Path & "\" & ActiveSheet.Name & " " & _
        Format(Now(), "dd.mm.yy") & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Sub testMail()
'Για να στείλουμε e-mail σε περισσότερους παραλήπτες διαχωρίζουμε τις διευθύνσεις με κόμμα.
'Με τον ίδιο τρόπο μπορούμε να επισυνάψουμε περισσότερα αρχεία.

    SendMailPerThunderBird _
            strTo:="sotisanis1@company.com,sotisanis2@company.com", _
            strCC:="sotisanisMain@company.com", _
            strSubject:=ActiveSheet.Name & " " & _
        Format(Now(), "dd.mm.yy"), _
            strBody:="Πάμε στο σχολείο;" & vbLf & "Σε περιμένω...", _
            strAttachments:=ThisWorkbook.Path & "\" & ActiveSheet.Name & " " & _
        Format(Now(), "dd.mm.yy") & ".pdf"
End Sub

Public Sub SendMailPerThunderBird( _
       ByVal strTo As String, _
       ByVal strCC As String, _
       ByVal strSubject As String, _
       ByVal strBody As String, _
       ByVal strAttachments As String)

    Dim strProgPath As String
    Dim strArgs As String
    
    ' Προσάρμοσε τη διαδρομή του εκτελέσιμου αρχείου 'thunderbird.exe' αν χρειαστεί.
    ' strProgPath = Chr(34) & Environ("ProgramFiles(x86)") & "\Mozilla Thunderbird\thunderbird.exe" & Chr(34)
    
    ' Προσάρμοσε τη διαδρομή του εκτελέσιμου αρχείου 'thunderbird.exe' αν χρειαστεί.
    strProgPath = Chr(34) & "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" & Chr(34)
    
    strArgs = " -compose ""to='""" & strTo _
            & "',cc='" & strCC _
            & "',subject='" & strSubject _
            & "',body='" & strBody _
            & "',attachment='" & strAttachments & "'"""

    Shell strProgPath & strArgs, vbNormalFocus
    
End Sub