Access - PDF Barras de herramientas

Sub OcultarBarrasHerramientasPDF()

    Dim AcroApp As Acrobat.CAcroApp

    Dim AcroAVDoc As Acrobat.CAcroAVDoc

    Dim AcroPDDoc As Acrobat.CAcroPDDoc

    Dim i As Integer

    Set AcroApp = CreateObject("AcroExch.App")

    Set AcroAVDoc = CreateObject("AcroExch.AVDoc")

    If AcroAVDoc.Open("ruta\archivo.pdf", "") Then

        Set AcroPDDoc = AcroAVDoc.GetPDDoc

        For i = 0 To AcroPDDoc.GetNumToolbar

            AcroPDDoc.SetToolbarVisibility i, False

        Next i

    End If

    AcroAVDoc.Close True

    AcroApp.Exit

    Set AcroApp = Nothing

    Set AcroAVDoc = Nothing

    Set AcroPDDoc = Nothing

End Sub