#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