PDF unter Zelleninhaltsnamen drucken.

Sub Druck_auf_PDF() ' Drucken_auf_PDF Makro Application.ActivePrinter = "Adobe PDF auf Ne15:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Adobe PDF auf Ne15:", Collate:=True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AB_drucken() ActiveWorkbook.Save Pfad = "C:\Rechnungen Harry" Datei = Sheets("Rechnung").Range("D1") ThisWorkbook.SaveAs Pfad & "\" & Datei & ".xls" ChDrive "C" ChDir "C:\Rechnungen Harry\" Dim sPrinter As String Dim AB_Dateiname As String AB_Dateiname = ActiveSheet.Range("D1").Value Application.ScreenUpdating = False sPrinter = Application.ActivePrinter Application.ActivePrinter = "Adobe PDF auf Ne07:" Drucker = Application.ActivePrinter prtcmd = AB_Dateiname Application.SendKeys (prtcmd), True Application.SendKeys "{ENTER}", True ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=Drucker Application.ActivePrinter = sPrinter Application.ScreenUpdating = True 'MsgBox "Datei " & prtcmd & " erstellt!" End Sub

Hallo Winfried,
vor dem Problem PDF-Dateien unter dem richtigen Namen automatisiert abzuspeichern stand ich auch bereits. Zwar drucke ich aus dem Internet Explorer heraus und verwende dafür den PDF Creator, aber meine Lösung könnte für Dich auch funktionieren, sofern Du die Möglichkeit hast, Deine PDFs in ein "Hilfsverzeichnis" zu drucken.
Ich habe ein Verzeichnis "TempPDF" angelegt. In dieses drucke ich die PDFs unter dem Namen, auf den ich keinen Einfluss habe, weil er automatisch vom PDF Creator vergeben wird. Ich überwache dieses Verzeichnis aber während des Drucks und prüfe in einer Schleife ständig, ob mehr als 0 Dateien in dem Verzeichnis liegen. Sobald das PDF darin abgespeichert wird, stimmt die Abbruchbedingung der Schleife und sie wird verlassen. Danach verschiebe ich die PDF Datei dann einfach und benenne sie während dieses Vorgangs in den Namen um, den sie in echt haben soll.


strRohNamePDF = PDFsDrucken(Browser)
Name strRohNamePDF As strVerzeichnis & strSollNameSpeicherKonform & ".pdf"


Function PDFsDrucken(Browser As Object) As String
Dim fs As Object
Dim PDFsTempPfad As Object
Dim strPDFsTempPfad As String
Dim Datei As Object
Dim PDFsAnzahl As Long
Dim DateiName As String
PDFsAnzahl = 0
strPDFsTempPfad = ThisWorkbook.Path & "\PDFs temp\"
Set fs = CreateObject("scripting.FileSystemObject")
Set PDFsTempPfad = fs.getFolder(strPDFsTempPfad)
Browser.ExecWB 6, 2, Null, Null
Do
PDFsAnzahl = DateienInVerzeichnisZaehlen(strPDFsTempPfad)
Loop Until PDFsAnzahl > 0
For Each Datei In PDFsTempPfad.Files
DateiName = Datei.Name
Next Datei
Set Datei = Nothing
Set fs = Nothing
Set PDFsTempPfad = Nothing
PDFsDrucken = strPDFsTempPfad & DateiName
End Function


Function DateienInVerzeichnisZaehlen(strVerzeichnis As String) As Long
Dim objFso As Object
Dim lonAnzahlDateien As Long
Set objFso = CreateObject("Scripting.FileSystemObject")
lonAnzahlDateien = objFso.getFolder(strVerzeichnis).Files.Count
Set objFso = Nothing
DateienInVerzeichnisZaehlen = lonAnzahlDateien
End Function

Mit dieser Methode habe ich bereits ca. 1 Mio. PDFs so abgespeichert, wie ich sie brauche. Das Einzige, worauf Du achten musst ist, dass niemals mehr als eine Datei in dem Verzeichnis liegt. Entweder Du bist Dir dessen sicher, oder Du stellst es sicher, indem Du erst prüfst, ob das Verzeichnis leer ist. Falls nicht, verschiebe die vorhandenenen Dateien in ein Auffangverzeichnis.
Vielleicht hilft Dir das :-)
Viele Grüße,
Zwenn

Beliebteste Forumthreads (12 Monate)

PDF unter Zelleninhaltsnamen drucken.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF unter Zelleninhaltsnamen drucken.

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread