Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Automatisierung mehrerer Tabellen in PDF

Automatisierung mehrerer Tabellen in PDF
09.12.2004 10:40:43
13Chris
Hallo,
ich bin auf der Suche nach Vereinfachung. Ca. 60 einzelne Excel-Reports sollen zu einem PDF-Gesamtreport zusammengefügt werden. Wer hat eine Idee, wie man die Generierung dieses PDF-Files aus verschiedenen Excel-Tabellen automatisieren könnte?
Chris

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisierung mehrerer Tabellen in PDF
Tobias
Hallo 13Chris,
Zuerst Brauchst Du den Adobe Distiller, wenn Du den hast musst Du die Referenz
für den Distiller setzten.
Hier der Code:

Sub RegisterDLL()
Dim lngCounter As Long
Dim objPDF As Object
Dim bolDLLInstalled As Boolean
bolDLLInstalled = False
With ThisWorkbook.VBProject.References
For lngCounter = 1 To .Count
If .Item(lngCounter).Name = "ACRODISTXLib" Then
bolDLLInstalled = True
End If
Next lngCounter
If bolDLLInstalled = False Then
Set objPDF = .AddFromGuid(strDistillerGUID, 1, 0)
End If
End With
Set objPDF = Nothing
End Sub

Es ist einfacher wenn alle Reports in einem Workbook drin sind.
Selektiere alle Reports die Du in deinem PDF haben möchtes und führe folgenden Code aus.

Sub PrintToPDF(strFileName As String, strOriginPath As String, strTargetPath As String)
Dim objDistiller As New ACRODISTXLib.PdfDistiller
objDistiller.bShowWindow = False
ActiveWindow.SelectedSheets.PrintOut , printtofile:=True, _
collate:=True, prtofilename:=strOriginPath & strFileName & ".ps"
objDistiller.FileToPDF strOriginPath & strFileName & ".ps", strTargetPath & strFileName & ".pdf", ""
Kill strOriginPath & strFileName & ".ps"
Set objDistiller = Nothing
End Sub


Sub Printing()
Call PrintToPDF("test", "C:\Excel\", "E:\PDF\")
End Sub

Hoffe das bringt Dich weiter...
Gruss
Tobias
Anzeige
AW: Automatisierung mehrerer Tabellen in PDF
13Chris
Hallo Tobias,
vielen Dank die Codes. Aber unter der '97-Version funktioniert das nicht so wirklich :o(.
Schönen Gruß
Chris

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige