#14 Aprire un file PDF

Per aprire un file PDF in VB6/VBA, con il programma predefinito (solitamente Acrobat Reader), è possibile utilizzare il seguente codice:

' Sezione dichiarazioni
Public Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, ByVal lpszOp As String, _
  ByVal lpszFile As String, ByVal lpszParams As String, _
  ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long   

Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Sub ApriPDF(NomeFile As String)
  Const SW_SHOWNORMAL As Long = 1
  Const ERROR_BAD_FORMAT As Long = 11
  Const SE_ERR_ACCESSDENIED As Long = 5
  Const SE_ERR_ASSOCINCOMPLETE As Long = 27
  Const SE_ERR_DDEBUSY As Long = 30
  Const SE_ERR_DDEFAIL As Long = 29
  Const SE_ERR_DDETIMEOUT As Long = 28
  Const SE_ERR_DLLNOTFOUND As Long = 32
  Const SE_ERR_FNF As Long = 2         '  file non trovato
  Const SE_ERR_NOASSOC As Long = 31
  Const SE_ERR_PNF As Long = 3         '  percorso non trovato
  Const SE_ERR_OOM As Long = 8         '  memoria esaurita
  Const SE_ERR_SHARE As Long = 26   

  Dim Scr_hDC As Long
  Dim ret As Long
  Dim sMsg As String
  Dim risposta As Long   

  Scr_hDC = GetDesktopWindow()
  ret = ShellExecute(Scr_hDC, "Open", _
      App.Path & "\RELAZIONI\" & _
      NomeFile, "", App.Path & _
      "\RELAZIONI", SW_SHOWNORMAL)   

  If ret <= 32 Then  ' Si è verificato un errore
    Select Case ret
      Case SE_ERR_FNF
          sMsg = "File non trovato"
      Case SE_ERR_PNF
          sMsg = "Percorso non trovato"
      Case SE_ERR_ACCESSDENIED
          sMsg = "Accesso negato"
      Case SE_ERR_OOM
          sMsg = "Memoria esaurita"
      Case SE_ERR_DLLNOTFOUND
          sMsg = "DLL non trovata"
      Case SE_ERR_SHARE
          sMsg = "Violazione di condivisione"
      Case SE_ERR_ASSOCINCOMPLETE
          sMsg = "Associazione di file " & _
              incompleta o non valida"
      Case SE_ERR_DDETIMEOUT
          sMsg = "DDE Time out"
      Case SE_ERR_DDEFAIL
          sMsg = "DDE transazione fallita"
      Case SE_ERR_DDEBUSY
          sMsg = "DDE occupato"
      Case SE_ERR_NOASSOC
          sMsg = "Nessuna associazione per " & _
              "l'estensione del file"
      Case ERROR_BAD_FORMAT
          sMsg = "File EXE non valido o errore " & _
              "nell'immagine EXE"
      Case Else
          sMsg = "Errore sconosciuto"
    End Select   

    If ret = 31 Then
      ' non è installato Acrobat Reader
      risposta = MsgBox("ATTENZIONE: in questo sistema " & _
          "non è installato Acrobat Reader, necessario " & _
          "per visualizzare documenti PDF." & vbCrLf & vbCrLf & _
          "Per installare Acrobat Reader (vers. 5.1 italiana): " & _
          "premere SI" & vbCrLf & "Per annullare l'apertura " & _
          "del documento PDF: premere NO", _
          vbYesNo Or vbCritical, "Installare Acrobat Reader?")
      If risposta = vbYes Then
        ' risposta = SI
        ' ATTENZIONE: se il programma di setup di Acrobat Reader
        ' si trova in un altro percorso, modificare l'istruzione
        ' seguente
        Shell App.Path & "\SETUP\AdbeRdr60_ita_full_WinXP.exe", _
            vbNormalFocus
      Else
        ' risposta = NO
        MsgBox "Apertura documento PDF annullata.", vbInformation
      End If
    Else
      ret = MsgBox("ERRORE: n. " & ret & " - " & _
          sMsg, vbCritical, "ApriPDF")
    End If
  End If
End Sub