Print pdf ud fra excelliste

Hej,
Du kan bruge denne VBA kode til at printe dine PDF filer.

Det er en funktion der hedder ShellExecute jeg bruger og denne skal skal du Declare før brug.

Dette gøres med følgende kode:

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

Her er selve makroen, jeg har en variable varSti der indeholder stien til mappem med PDF filer, den skal du rette til din egen sti. Jeg forudsætter at navene på PDF filer står i A, derfor starter jeg i cellen A1

Private Sub mcrOpenPDF()
    'Variable
    Dim varSti As String
   
    'Sti til mappen med PDF filer
    varSti = "C:\Users\tue\Desktop\"
       
    'Start celle
    Range("A1").Select
   
    'Gennemløb af alle fil/pdf navne
    Do Until ActiveCell.Value = ""
       
        'Print PDF fil
        ShellExecute Application.hWnd, "print", varSti & ActiveCell.Value, vbNullString, vbNullString, 1
       
        'Gå til næste celle
        ActiveCell.Offset(1, 0).Select
    Loop

End Sub


Hilsen
Tue Hellstern
www.F1-support.dk