Au secours ouvrir acrobat et imprimer un pdf en vba
cs_Led0b
Messages postés
7
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
14 février 2002
-
31 janv. 2002 à 12:32
raph007 Messages postés 22 Date d'inscription lundi 12 mai 2003 Statut Membre Dernière intervention 20 mai 2005 - 3 juil. 2003 à 11:53
raph007 Messages postés 22 Date d'inscription lundi 12 mai 2003 Statut Membre Dernière intervention 20 mai 2005 - 3 juil. 2003 à 11:53
1 réponse
raph007
Messages postés
22
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
20 mai 2005
3 juil. 2003 à 11:53
3 juil. 2003 à 11:53
Salut moi j'arrive a l'ouvrir mais avec le code suivant je n'arrive pas a fermer acrobat je te le donne on ne sait jamais
'déclaration des variables
'Dim strCommandLine As String
'Dim strPrinterName As String
'Dim strDriverName As String
'Dim strPortName As String
'Dim strFileNameToPrint As String
'Dim AppAcrobat As Long
''set du chemin d'accès des TPS pour la vairable
'strFileNameToPrint = "c:\simule" & lstproject.SelectedItem.Text & ".pdf"
'
''set des variables pour la reconnaissance des imprimantes a utilisées
'strPrinterName = Printer.DeviceName
'strDriverName = Printer.DriverName
'strPortName = Printer.Port
'
''check du répértoire a utilisé
'Directory = Dir("C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe", vbDirectory)
'If Directory <> "" Then
'
' 'set de la variable pour l'impression
' strCommandLine = "C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe /t """ + _
' strFileNameToPrint + """ """ + _
' strPrinterName + """ """ + _
' strDriverName + """ """ + _
' strPortName + """"
'Else
' 'check du répertoire a utilisé
' Directory = Dir("C:\Program Files\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe", vbDirectory)
' If Directory <> "" Then
'
' 'set de la variable pour l'impression
' strCommandLine = "C:\Program Files\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe /t """ + _
' strFileNameToPrint + """ """ + _
' strPrinterName + """ """ + _
' strDriverName + """ """ + _
' strPortName + """"
' Else
' MsgBox "Acrobat Reader is missed on your PC, please contact the IS-Team", vbInformation
' End If
'End If
'
''impression du document
'AppAcrobat = Shell(strCommandLine, vbHide)
' 'MsgBox "Job has been sent to the printer using the command " + strCommandLine
ps c'est en vb mais bon cela dois fnctionné en vba
'déclaration des variables
'Dim strCommandLine As String
'Dim strPrinterName As String
'Dim strDriverName As String
'Dim strPortName As String
'Dim strFileNameToPrint As String
'Dim AppAcrobat As Long
''set du chemin d'accès des TPS pour la vairable
'strFileNameToPrint = "c:\simule" & lstproject.SelectedItem.Text & ".pdf"
'
''set des variables pour la reconnaissance des imprimantes a utilisées
'strPrinterName = Printer.DeviceName
'strDriverName = Printer.DriverName
'strPortName = Printer.Port
'
''check du répértoire a utilisé
'Directory = Dir("C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe", vbDirectory)
'If Directory <> "" Then
'
' 'set de la variable pour l'impression
' strCommandLine = "C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe /t """ + _
' strFileNameToPrint + """ """ + _
' strPrinterName + """ """ + _
' strDriverName + """ """ + _
' strPortName + """"
'Else
' 'check du répertoire a utilisé
' Directory = Dir("C:\Program Files\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe", vbDirectory)
' If Directory <> "" Then
'
' 'set de la variable pour l'impression
' strCommandLine = "C:\Program Files\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe /t """ + _
' strFileNameToPrint + """ """ + _
' strPrinterName + """ """ + _
' strDriverName + """ """ + _
' strPortName + """"
' Else
' MsgBox "Acrobat Reader is missed on your PC, please contact the IS-Team", vbInformation
' End If
'End If
'
''impression du document
'AppAcrobat = Shell(strCommandLine, vbHide)
' 'MsgBox "Job has been sent to the printer using the command " + strCommandLine
ps c'est en vb mais bon cela dois fnctionné en vba
