close PDF file

I suppose I would like to close acrobat reader.

---------- Post added at 11:51 AM ---------- Previous post was at 11:41 AM ----------

Here is the code bellow if it helps. It is to create a PDF file of the excel worksheet, then email the PDF file.

Sub EmailPR()
Application.ScreenUpdating = False
' Generate PDF file
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\AutoReport\Performance Report.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
Application.ScreenUpdating = False

'This part to email
'If you get this error : The transport failed to connect to the server
'then try to change the SMTP port from 25 to 465

    Dim iMsg As Object
    Dim iConf As Object
    Dim StrBody As String
    Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxxxx@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxx"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        .Update
    End With

    StrBody = "Please see attached the performance report" & vbNewLine & vbNewLine & _
              "Regards" & vbNewLine & _
              "Draft Surveyor" & vbNewLine & _
              ThisWorkbook.Sheets("Prep").Range("B5") & vbNewLine & _
              ThisWorkbook.Sheets("Prep").Range("D79")

    With iMsg
        Set .Configuration = iConf
        .To = Sheets("Prep").Range("D79").Value
        .CC = ""
        .BCC = ""
        ' Note: The reply address is not working if you use this Gmail example
        ' It will use your Gmail address automatic. But you can add this line
        ' to change the reply address  .ReplyTo = "Reply@something.nl"
        .From = """xxxx"" <xxxxxxxxxxx@gmail.com>"
        .Subject = ThisWorkbook.Sheets("Prep").Range("B1").Value
        .TextBody = StrBody
        .Addattachment "C:\AutoReport\Performance Report.pdf"
        .Send
    End With
Beep
End Sub

Hi Leith. I ran the code and it did not do anything, so that would probably suggest that Acrobat Reader is not open as you have said. When my code opens the PDF file it has at the top bar Performance Report.pdf - Adobe Reader, so I assumed from that Acrobat Reader was open.
I used the macro recorder with excel 2010 to generate the PDF file if that helps.
Maybe it is the case that I just need the code to close the PDF file. Can you help with that?

Hi Leith. Your code does work on its own, however when I have called "CloseAcrobatReader" nothing happens. This is what I have got without the email code, with the code that you have given me in a seperate module:

Sub EmailPR()
Application.ScreenUpdating = False
' Generate PDF file
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\AutoReport\Performance Report.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
Application.ScreenUpdating = False

CloseAcrobatReader

'This part to email
'If you get this error : The transport failed to connect to the server
'then try to change the SMTP port from 25 to 465

   
End Sub

---------- Post added at 06:01 PM ---------- Previous post was at 05:58 PM ----------

Hi Leith. I put CloseAcrobatReader at the bottom of the code after the email code and it now closes the PDF file. Thanks very much for your help.

OK, after spending all day on this I have realised my mistake.

Change OpenAfterPublish:= _
True
To OpenAfterPublish:= _
False

This way the pdf file will not be opened.

Thanks for your help Leith, I am sure what you have given me will come in handy.