mehrere Hyperlink-Dateien in pdf drucken

Hallo Helfer*innen,
leider hat mich meine mehrstündige Suche bisher nicht zum gewünschten Thread geführt hat, daher hier nun die Beschreibung meines Vorhabens.
Ich habe ein Sammlung an Ausführungsdetails in Form einzelner pdf-Dokumente erstellt.
Jedes hat nach einem festgelegten Detailnummernschlüssel eine eindeutige Zuordnung, und lautet zum Beispiel PO-BP_01.1 .
(1) Diese habe ich bereits alle in einer Art Inhaltsverzeichnis in Excel aufgelistet
(2) durch Eintrag eines ' X ' in Zelle B9 - B200 wird die Detail-Nr inkl. Bezeichnung markiert
(3) sodass nach Benutzung der Filterfunktion in B8 nur die projektspezifisch ausgewählten Details angezeigt werden
(4) nun soll durch die Auswahl bei (2) ein Hyperlink auf das pdf-Dokument erstellt werden
- diesen würde ich mittels SVERWEIS zuordnen
noch besser wäre es
- wenn dieser durch Suche der Detail-Nr = Dokumentname (z.B. PO-BP_01.1.pdf) im Netzwerkserver automatisch erstellt würde
(5) Nun sollen alle ausgewählten Details (also deren verlinktes pdf-Dokument) in ein Gesamtdokument druckt werden.
Bei Punkt (3) bin ich für den internen Gebrauch eigentlich schon fertig, da die Kollegen ja Zugriff auf die Dokumente haben,
um mich jedoch mit Extrenen austauschen zu können, benötigen diese das unter (5) beschriebene Gesamtdokument.
Besten Dank schon einmal im Voraus für Eure Unterstützung.
Hier nun die bisher erstellte Arbeitsmappe, die die Funktionen aus Punkt (1) bis (3) beinhaltet.
https://www.herber.de/bbs/user/158043.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Pierre,
die für mich schlüssigste/verständlichste Programmierung sieht so aus:
[Die ersten beiden Private subs sind an Buttons (Activex-Steuerelemente) gekoppelt, mit denen ich
die pdf-Auswahl zurücksetzte und die Datenbank der Dateipfade aktualisieren] ... das funktioniert soweit auch einwandfrei.
Variante 1

Private Sub AuswahlZurücksetzen_Click()
Range("Auswahl_x").ClearContents
End Sub

Private Sub BibliothekAktualisieren_Click()
ThisWorkbook.RefreshAll
End Sub

Public Sub AuswahlDrucken_Click()
Dim objHyperlink As Hyperlink
Dim objWorkbook As Workbook
For Each objHyperlink In ActiveSheet.Hyperlinks
If Not Intersect(objHyperlink.Range, Range("J11:J200")) Is Nothing Then
Set objWorkbook = Workbooks.Open(Filename:=objHyperlink.Address)
Call objWorkbook.PrintOut
Call objWorkbook.Close(SaveChanges:=False)
End If
Next
Set objWorkbook = Nothing
End Sub

▲
Beim drücken des Button 'Auswahl Drucken' passiert aber rein garnichts + der Editor gibt auch keine Fehlermeldung zurück
..........
Variante 2

Private Sub AuswahlZurücksetzen_Click()
Range("Auswahl_x").ClearContents
End Sub

Private Sub BibliothekAktualisieren_Click()
ThisWorkbook.RefreshAll
End Sub

Option Explicit
Declare Function apiShellExecute 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

Public Sub PrintFile(ByVal strPathAndFilename As String)
   
    Call apiShellExecute(Application.hwnd, "print", strPathAndFilename, vbNullString, vbNullString, 0)
   
End Sub

Private Sub AuswahlDrucken_Click()
   
    PrintFile ("C:\Test.pdf")
   
End Sub

▲
Hier bringt der Editor gleich die genannte Fehlermeldung + wird der Absatz
'Private Declare Function' markiert.
Es schaut im Editor durch die automatisch gesetzten Objekt-Trennlinien aber auch schon so aus
als wäre etwas falsch
..........
Variante 3

Private Sub AuswahlZurücksetzen_Click()
Range("Auswahl_x").ClearContents
End Sub

Private Sub BibliothekAktualisieren_Click()
ThisWorkbook.RefreshAll
End Sub

Public Sub AuswahlDrucken_Click()
' Alle Felder auf Links prüfen
For Each oLnk In ActiveDocument.Fields
  If oLnk.Type = wdFieldLink Then
    ' Verknüpfungstyp ermitteln und prüfen ob Datei als Icon eingefügt
    If oLnk.LinkFormat.Type = wdLinkTypeOLE And oLnk.OLEFormat.DisplayAsIcon Then
      ' Dateinamen ermitteln
      sLink = oLnk.LinkFormat.SourceFullName
      sLink = Replace(sLink, "\", "\\")
      If Dir(sLink) = oLnk.LinkFormat.SourceName Then  'Datei vorhanden?
        Application.ActivePrinter = sPrinter
        ' Link-Datei drucken
        ShellExecute &O0, "Print", sLink, vbNullString, vbNullString, 1
      End If
    End If
  End If
Next oLnk
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
' Aufruf in einem Modul
' Link-Datei drucken
ShellExecute &O0, "Print", sLink, vbNullString, vbNullString, 1
'Standardrucker wieder herstellen
 Application.ActivePrinter = DefPrinter
▲
Hier bringt der Editor auch die genannte Fehlermeldung + wird der Absatz 
'Private Declare Function' markiert

Beliebteste Forumthreads (12 Monate)

mehrere Hyperlink-Dateien in pdf drucken

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mehrere Hyperlink-Dateien in pdf drucken

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread