Hallo
Habe diverse Tabellen die zu einem PDF zusammengeführt werden.
Damit der Ausdruck stimmt muss jede Tabelle mit einer geraden Seite enden
Mein Ansatz:
Dim Seitenanzahl As Integer
Seitenanzahl = ExecuteExcel4Macro("Get.Document(50)")
If Seitenanzahl Mod 2 = 1 Then
'Gehe zum letzten Umruch ABER WIE?
end if
Besten Dank und Gruss
Hugo