Skrive ut lagret pdf

[Trelkrok]

Hei, jeg kjører Office 365 og har blant annet denne makroen.

 

Sub Lagre()

Dim Sti As String

Dim Filnavn As String

 

Sti = ActiveWorkbook.Path & "\"

Filnavn = "Pakkseddel_" & Cells(7, 6)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        Sti & Filnavn, Quality:= _

        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=Aapne

 

 

'

    ActiveWorkbook.Save

End Sub

 

 

 

Jeg ønsker og legge til så denne makroen også skriver ut pdf filen etter lagring (hurtigutskrift). Noen som kan hjelpe meg med det? 

På forhånd takk