PDF Export

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Save_Checklist_pdf() Dim Pfad As Variant Dim Dateiname As Variant Dim Verzeichnis As String Application.DisplayAlerts = False Dateiname = ActiveSheet.Name & "_Checklist" & ".pdf" Verzeichnis = "c:\users\uwe\Test\" Pfad = Verzeichnis & Dateiname If MsgBox("Die eben erstellte Checklist wird als PDF im Verzeichnis" & vbCrLf & vbCrLf _ & Pfad & vbCrLf & vbCrLf _ & "gespeichert. Dieses Tabellenblatt wird entfernt!" & vbCrLf & vbCrLf _ & "Hast du alle Daten geprüft?", vbYesNo) = vbNo Then Exit Sub If ActiveSheet.Name = "Muster_Checklist" Then MsgBox "Warum willst du die Vorlage als *.pdf speichern?" & vbCrLf _ & "Das macht keinen Sinn!", vbQuestion Exit Sub End If If Dir(Pfad) "" Then If MsgBox(Dateiname & " ist im Zielverzeichnis" & vbCrLf _ & Verzeichnis & " bereits vorhanden!" & vbCrLf & vbCrLf _ & "Soll die Datei überschrieben werden?", vbYesNo) = vbNo Then Exit Sub End If End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Pfad, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False ActiveSheet.Delete Application.DisplayAlerts = True End Sub

Hallo Uwe,
Excel 2003 kann noch keine Tabellenblätter/Arbeitsmappen als PDF exportieren.
Hier muss man den Weg über ein Programm gehen, dass via Drucken ein PDF erzeugt.
Allerdings ist es dann nicht immer ganz so einfach, den Dateinamen für die PDF-Datei vorzugeben.
Hier mal ein Grundgerüst. Evtl. musst du auch noch einige der If-Prüfungen in den Bereich der jeweilgen Version verschieben.
Gruß
Franz

Sub Save_Checklist_pdf()
Dim Pfad As Variant
Dim Dateiname As Variant
Dim Verzeichnis As String
Dateiname = ActiveSheet.Name & "_Checklist" & ".pdf"
Verzeichnis = "c:\users\uwe\Test\"
Pfad = Verzeichnis & Dateiname
If MsgBox("Die eben erstellte Checklist wird als PDF im Verzeichnis" & vbCrLf & vbCrLf _
& Pfad & vbCrLf & vbCrLf _
& "gespeichert. Dieses Tabellenblatt wird entfernt!" & vbCrLf & vbCrLf _
& "Hast du alle Daten geprüft?", vbYesNo) = vbNo Then Exit Sub
If ActiveSheet.Name = "Muster_Checklist" Then
MsgBox "Warum willst du die Vorlage als *.pdf speichern?" & vbCrLf _
& "Das macht keinen Sinn!", vbQuestion
Exit Sub
End If
If Dir(Pfad)  "" Then
If MsgBox(Dateiname & "    ist im Zielverzeichnis" & vbCrLf _
& Verzeichnis & "            bereits vorhanden!" & vbCrLf & vbCrLf _
& "Soll die Datei überschrieben werden?", vbYesNo) = vbNo Then
Exit Sub
End If
End If
If Val(Left(Application.Version, 2))

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread