Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: .xls konvertieren nach .pdf

.xls konvertieren nach .pdf
17.11.2004 13:55:18
Jan
Im Geschäft müssen wir monatlich hunderte von Excel-Tabellen in .pdf-Files konvertieren. Wir haben bereits ein kleines VBA-Script, das uns erlaubt eine Liste von Excel-Files auszudrucken. Bei der Auswahl der Drucker steht auch Adobe PDF (konvertiert eine Quelle in ein .pdf-File) zur Verfügung.
Ich würde nun gerne anstelle eines Druckers den "Adobe PDF" auswählen und mir so die Files automatisch erstellen lassen. Bisher mussten wir jedes .pdf-File einzeln erstellen.
Wenn man den "Drucker" "Adobe PDF" auswählt öffnet sich zuerst ein Fenster mit Namensvorschlag wohin man das neue .pdf-File abspeichern will, dann konvertiert Adobe das File und öffnet das neue .pdf-File im Adobe Reader.
Via Aufzeichnen habe ich versucht eine Lösung zu finden. Leider hat es ausser den Druck Befehl nichts aufgezeichnet.
Weiss jemand Rat.
Gruss Jan
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .xls konvertieren nach .pdf
Tobias
Hallo Jan,
Hier eine Prozedur um automatisch ein PDF file zu erstellen.
Du musst einfach den Adobe Distiller installiert haben und auch als Drucker auswählen.

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

Zuerst wird ein PostScript-Datei erstellt und dann in PDF umgewandelt.
Nun musst Du nur noch einen Loop machen und die Prozedur darin aufrufen.
Gruss
-Tobias
Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige