Office: Excel und PDF (Adobe Acrobat 7.0 Standard)

Eric Palm · 7. Februar 2006

Hallo Fachfrauen und Männer,
ich habe mir schon einen Wolf gesucht aber leider keine Erleuchtung bekommen. Ich will eine Excel-Datei in PDF umwandeln. Aber irgendwie funktioniert das nicht so richtig.
Habe folgenden Code mit dem Makrorecorder aufgezeichnet.
Code:

Application.ActivePrinter = "Adobe PDF auf Ne00:"
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="Adobe PDF auf Ne00:", _
Collate:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe keine Ahnung warum dort auf einmal ....auf Ne00 steht. Mein Standartdrucker ist:HP Business Inkjet 1200 Series auf LPT1. In der ganzen Firma gibt es keinen Drucker mit dem Namen Ne00

Wie kann ich nun meine Code so umschreiben das diese in PDF erstellte Dokument auf meinem Drucker ausgedruckt wird ohne das ich die PDF Datei öffnen muss oder sich überhaupt öffnet.
Ich will natürlich das in PDF erstellte Dokument in einem bestimmten Pfad speichern: \\ROM\Gruppen\Z_Ordner\Bestecke allgemein\TCM
Der Dateiname soll aus der Zelle A4 ausgelesen werden.

Kann mir jemand dabei helfen? Ich bin auf jeden Fall für jede Hilfe dankbar.

Gruß
Eric

:)

User · 9. Februar 2006

Hallo Eric,

was willst Du eigentlich machen?

a) Excel Datei als PDF umwandeln ("Ich will eine Excel-Datei in PDF umwandeln") oder
b) PDF ausdrucken? ("in PDF erstellte Dokument auf meinem Drucker ausgedruckt ")

Der gezeigt Code läßt a) vermuten.

Eric Palm · 9. Februar 2006

Hallo Woody,
zuerst die Datei in PDF umwandeln, dann wenn das überhaupt in einem Code geht, auch noch ausdrucken. Dazu könnte ich aber auch das Excelblatt ausdrucken fällt mir gerade mal so auf.
Also bin ich auf jeden Fall schon einmal zufrieden wenn ich die Datei in PDF umwandeln kann.

Danke für die schnelle Antwort.
Gruß Eric

tcs75 · 9. Februar 2006

hallo eric,

die gängigen pdf-erzeuger arbeiten als "virtuelle" drucker (du wirst sie auch in der systemsteuerung bei den druckern und faxgeräten finden).
deshalb ist der makro-code für das erzeugen eines pdf bei dir auch tatsächlich ein makro zum drucken, allerdings ist der drucker eben "Adobe PDF auf Ne00:"

am einfachsten ist wahrscheinlich, so wie du schon sagtest, einmal auf "Adobe PDF auf Ne00:" zu drucken um ein PDF zu erstellen und dann mit dem selben Code, aber dem "richtigen" drucker, einen ausdruck zu machen (somit brauchst du dir keinen kopf darüber zu machen, wie du das PDF aus excel druckst).

das mit dem dateinamen ist wahrscheinlich nicht so einfach, da der "speichern unter"-dialog nicht von excel sondern von acrobat ist.

übrigens: mit den kommandozeilenparametern von acrobat kannst du eine df-datei auch aus exel drucken:
Code:

str_shell = ""
str_shell = str_shell & """" & "DEIN_PFAD_ZU_ACROBAT\acrobat.exe" & """"
str_shell = str_shell & " /p /h " & """" & "DEIN_PFAD_ZU_PDF_DATEI\PDF_DATEI.pdf" & """"

If MsgBox("Ausführen von: " & str_shell, vbOKCancel) = vbOK Then

Shell (str_shell)

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

grüße
Tom

tcs75 · 9. Februar 2006

hi eric,

pdf erstellen und ausdrucken geht!!!

nach einigem probieren hab ich folgenden vorschlag, damit alles so läuft, wie du dir das vorstellst:

1.) in Excel gehe in das menü Adobe PDF (Alt+O)
2.) wähle "Konvertierungseinstellungen ändern..."
3.) deaktiviere das kästchen bei "Eingabeaufforderung für adobe PDF-Dateiname"
4.) geh in der systemsteuerung zu "Drucker und Faxgeräte"
5.) rechtsklick auf "AdobePDF" und klick auf "Eigenschaften"
6.) geh auf die registerkarte "Anschlüsse"
7.) klick auf "Hinzufügen"
8.) wähle "Adobe PDF Port" und klick auf "Neuer Anschluss"
9.) wähle den pfad wo du die PDFs haben möchtest
10.) das fenster "Druckeranschlüsse" jetzt schließen
11.) jetzt sollte das kästchen bei Anschluss="dein Pfad", Beschreibung="Adobe PDF Port" und Drucker="Adobe PDF" aktiviert sein (häkchen dran)

jetzt kannst du mal folgenden code (etwas holprig, ich weiß, bei mir funzt er aber) ausprobieren (nachdem du ihn angepasst hast) ...

Code:

Sub PDF_create_n_print()

'
Dim OriginalFileName As String 'name der original excel-datei
Dim FileNameToSaveAs As String 'name der aus der zelle gelesen wird (ohne erweiterung)
Dim shortFilename As String
Dim PathToFile As String 'pfad zur erzeugten xls (und pdf-datei bei verwendung von z.B. pdf995)
' bei dir \\ROM\Gruppen\Z_Ordner\Bestecke allgemein\TCM
Dim AcroPath As String 'pfad zu acrobat
Dim str_shell As String 'string für die ausführung des PDF-drucks

ActiveWorkbook.Save

AcroPath = """" & "C:\Program Files\Adobe\Acrobat 6.0\Acrobat\acrobat.exe" & """"
PathToFile = CurDir ' bei dir \\ROM\Gruppen\Z_Ordner\Bestecke allgemein\TCM
shortFilename = Cells(8, 3).Value & ".xls"
FileNameToSaveAs = PathToFile & "\" & Cells(8, 3).Value
OriginalFileName = ActiveWorkbook.Name
str_shell = AcroPath & " /p /h " & """" & FileNameToSaveAs & ".pdf" & """"

FileNameToSaveAs = FileNameToSaveAs & ".xls"

' Dateinamen festlegen und abspeichern

ActiveWorkbook.SaveAs Filename:= _
FileNameToSaveAs, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

MsgBox ("bevor man das programm hier weiterlaufen lässt, nicht vergessen eine abfrage einzubauen, ob die xls-datei fertig erstellt wurde")

' PDF erstellen

Application.ActivePrinter = "Adobe PDF auf Ne08:" 'bei Dir dürfte das anders sein (z.b. Ne00:)
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="Adobe PDF auf Ne08:", _
Collate:=True

MsgBox ("bevor man das programm hier weiterlaufen lässt, nicht vergessen eine abfrage einzubauen, ob die pdf-datei fertig erstellt wurde")

' PDF drucken

'If MsgBox("Ausführen von: " & str_shell, vbOKCancel) = vbOK Then

Shell (str_shell)

'End If

' Original-Datei wieder öffnen

Workbooks.Open Filename:=OriginalFileName
Workbooks(shortFilename).Close

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

viel erfolg
Tom

Eric Palm · 9. Februar 2006

Hallo Tom,
danke für Deine Hilfe.
Eines funktioniert aber leider bei mir nicht. Hier wird von VBA aus gemeckert.

' Dateinamen festlegen und abspeichern

ActiveWorkbook.SaveAs Filename:= _
FileNameToSaveAs, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Hier schreibt er das die Save-Methode fehlgeschlagen ist.
Was ist bei mir falsch?
Dann habe ich echt keine Ahnung ob das so stehen bleiben kann oder ob ich da noch etwas zu ändern habe.
PathToFile = CurDir ' bei Dir \\ROM\Gruppen\Z_Ordner\Bestecke allgemein\TCM

Wenn Du mir da noch weiter helfen kannst wäre ich dir Dankbar.

Gruß
Eric

tcs75 · 10. Februar 2006

hi,

probiers mal so (aber pass bitte alle pfade und den drucker an, sodass sie deinem system entsprechen):
Code:

Sub Makro3()
On Error GoTo ErrorHandler 'Fehlerbehandlung activieren (bei fehler mach das und das)

Dim FinalNamePDF As String 'Dateiname inklusive pfad für die fertige PDF
Dim TempNamePDF As String 'temporärer dateiname
Dim TmpPath As String 'pfad zu einem beliebibgen temporären verzeichnis
Dim shortFilename As String 'name der aus der zelle gelesen wird (ohne erweiterung)
Dim PathToPDF As String 'pfad zur erzeugten pdf
' bei dir \\ROM\Gruppen\Z_Ordner\Bestecke allgemein\TCM
Dim AcroPath As String 'pfad zu acrobat
Dim str_shell As String 'string für die ausführung eines dos-kommandos

ActiveWorkbook.Save

'hier wird der pfad zu adobe acrobat definiert (wo ist acrobat.exe installiert).:
AcroPath = """" & "C:\ellenlangerPfad\acrobat.exe" & """"

'hier wird der pfad zu deinem erzeugten pdf-file definiert (\\ROM\Gruppen\Z_Ordner\Bestecke allgemein\TCM)
PathToPDF = "C:\andererEllenlangerPfad\" 'letzten backslash nicht vergessen

'hier lesen wir den dateinamen für die zu erstellende PDF datei aus (Zelle A4)
shortFilename = Cells(4, 1).Value

' PDF erstellen (das pdf wird dort gespeichert wo du bei den druckereinstellungen angegeben hast)
Application.ActivePrinter = "Adobe PDF auf Ne08:" 'bei Dir dürfte das anders sein (z.b. Ne00:)
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="Adobe PDF auf Ne08:", _
Collate:=True

MsgBox ("bevor man das programm hier weiterlaufen lässt, nicht vergessen eine abfrage einzubauen, ob die pdf-datei fertig erstellt wurde")

'noch heißt das pdf so:
TempNamePDF = PathToPDF & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".pdf"

'soll aber so heißen:
FinalNamePDF = PathToPDF & shortFilename & ".pdf"

'also PDF umbenennen
Name TempNamePDF As FinalNamePDF

' PDF drucken (mit den kommandozeilen-parametern für acrobat in einem DOS-befehl)

str_shell = AcroPath & " /p /h " & """" & PathToPDF & shortFilename & ".pdf" & """"
'das macht dann: acrobat.exe mit den parametern /p und /h und unserem dateinamen aufrufen

Shell (str_shell) 'befehl ausführen

Exit Sub

'Fehlerbehandlung
ErrorHandler:
Select Case MsgBox("Fehler " & Err.Number & ", " & Err.Description & " ist aufgetreten. " & Chr(13) & "Versuche fortzufahren (JA) oder Abbrechen (Nein)?", vbYesNo)
Case vbYes
Resume Next
Case vbNo
Exit Sub
Case Else
End Select

Resume

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eric Palm · 12. Februar 2006

Hallo Tom,
danke für Deine Hilfe.
Es funktioniert alles bis auf das der Name nicht Automatisch abgespeichert wird. Ich muss also immer den Namen eingeben wenn sich die PDF - Datei abspeichern will. Es kommt also immer das Fenster: Speichern unter mit dem richtigen Pfad aber ohne die Namensänderung.
Wenn Du da noch eine Lösung hast wäre ich Dir natürlich dankbar aber ich könnte auch so damit leben. Liegt es eventuell an irgendwelchen einstellungen in VBA. Ich habe keine Ahnung warum der Name nicht übergeben wird.
Ich danke Dir auf jeden Fall für die Tolle hilfe.

Gruß
Eric

tcs75 · 13. Februar 2006

hallo eric,

hast du die schritte 1-3 aus beitrag #5 durchgeführt? damit sollte er nicht mehr nach dem dateinamen fragen!

grüße
Tom

Eric Palm · 13. Februar 2006

Hallo Tom,
ja das habe ich getan. Die Eingabeaufforderung ist deaktiviert.
Ich habe das ganze noch etwas abgeändert. Ich speichere zuerst die Excel-Datei unter dem Namen wie der Ursprung der Datei ist. ( Eigenprüfbericht )
Dann speichere ich die Excel-Datei unter dem Namen ab wie die PDF-Datei heißen soll und schon funktioniert es bis auf das ich immer noch in dem Dialog der sich einfach so öffnet (Speichern unter ) Speichern bestätigen muss. Aber das ist für mich kein Problem. Ansonten funktioniert es ganz gut.
Wenn Du noch bessere Lösungen weißt bin ich natürlich für jede weitere Hilfe dankbar. Ansonsten lasse ich es nun wie es ist.
Nochmals ein großes Danke an Dich.

Gruß
Eric

Office: Excel und PDF (Adobe Acrobat 7.0 Standard)

Excel und PDF (Adobe Acrobat 7.0 Standard)

Excel und PDF (Adobe Acrobat 7.0 Standard)

Excel und PDF (Adobe Acrobat 7.0 Standard)

Excel und PDF (Adobe Acrobat 7.0 Standard)

Excel und PDF (Adobe Acrobat 7.0 Standard) - Similar Threads - Excel PDF Adobe

pdf drucken mit button in excel einfügen

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

XY-Diagramm-Grafik mit zusätzlichen Daten erweitern

huge PDF to EXCEL

Komplexes Makro ohne Ahnung :-/

VBA Makro - PDF erstellen und speichern auf lokalem Netzwerk

Excel Blatt als PDF speichern mit VBA