Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2290 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Imprimer un fichier PDF

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Imprimer un fichier PDF

n°1483676
cat82
Posté le 29-11-2006 à 12:37:04  profilanswer
 

Bonjour,
 
Je voudrais imprimer automatiquement des fichiers PDF qui se trouve dans un répertoire bien défini.
 
J'ai regarder de nombreux codes. Mais la plupart ne traite pas de fichiers PDF mais de fichiers Word, txt.
 
Bref, je n'y arrive pas.
 
Quelqu'un pourrait - il m'aider.
 
Merci

mood
Publicité
Posté le 29-11-2006 à 12:37:04  profilanswer
 

n°1483719
DamienCYS
Posté le 29-11-2006 à 14:01:41  profilanswer
 

un batch avec la commande print devrait faire l'affaire

n°1486171
cat82
Posté le 04-12-2006 à 16:27:52  profilanswer
 

ca marche pas pour les PDF

n°1486597
kiki29
Posté le 05-12-2006 à 13:28:12  profilanswer
 

Vite fait sous VBA Excel, à priori cela fonctionne


Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
 
Dim NbFichiers As Long
Dim Tableau() As String
Const Dossier As String = "C:\Transfert"
 
Sub Tst()
Dim hwnd As Long
Dim i As Long
Dim DossierOk As String
 
    DossierOk = Dossier
    If Right(DossierOk, 1) <> "\" Then DossierOk = Dossier & "\"
    ListeFichiers DossierOk, "pdf"
    If NbFichiers > 0 Then
        For i = 1 To UBound(Tableau)
            ShellExecute hwnd, "print", DossierOk & Tableau(i), "", "", SW_SHOWNORMAL
        Next
    End If
End Sub
 
Private Sub ListeFichiers(ByVal NomDossierSource As String, ByVal Extension As String)
Dim NomFichier As String
    NomFichier = Dir(NomDossierSource & "*." & Extension)
     
    Erase Tableau
    NbFichiers = 0
    Do While Len(NomFichier) > 0
        NbFichiers = NbFichiers + 1
        ReDim Preserve Tableau(1 To NbFichiers)
        Tableau(NbFichiers) = NomFichier
        NomFichier = Dir()
    Loop
End Sub


Message édité par kiki29 le 06-12-2006 à 03:43:55
n°1563385
salrouge
Posté le 22-05-2007 à 12:20:04  profilanswer
 

oui c'est une bonne idée, mais y'autait il pas une autre methode de le faire sans que Adobe Acrobat se lance ?

n°1563705
kiki29
Posté le 22-05-2007 à 19:13:53  profilanswer
 

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Imprimer un fichier PDF

 

Sujets relatifs
Appeler un fichier php dans un autreretourner dans une chaine un fichier PHP interprété
Lire des valeurs hexadecimales(negatives) dans un fichierLecture de fichier
Afficher le contenu d'un fichier html sur une autre pageComment générer un formulaire HTML en PDF
Script: ecrire les noms des sous repertoires dans un fichiertransfère de fichier à travers les socket
ceer un fichier en vbsLire, ecrire et imprimer un fichier pdf
Plus de sujets relatifs à : Imprimer un fichier PDF


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR