Excel makro - odeslat jako pdf Vyřešeno

[Majk1976]

Dobrý den, potřebuji odeslat jeden list nebo sešit ( nebude více listů) mailem na dvě adresy. Potřeboval bych aby soubor převedl na pdf. Jelikož se tento list odesílá několikrát denně , chci to řešit makrem

[Reklama]

[cmuch]

List lze uložit do PDF TŘEBA TAKTO.
Stačí změnit cestu a název.

Kód: Vybrat vše

Sub UlozListJakoPDF()
'
    Dim cesta As String
    Dim nazev As String

    cesta = "C:\Users\Documents\"
    nazev = "Sešit.pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        cesta & nazev, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub


[Majk1976]

Hodně opožděně , ale i tak veliký dík, tato rada mi usnadnila velice práci.