pdf erstellen ohne pdf-Drucker zu installieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub PDF_Print_Sheet() 'Modifiziert Dim wks As Worksheet For Each wks In ActiveWindow.SelectedSheets wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("Username") & "\Desktop\" & ActiveSheet.Name & ".pdf", Quality:= _ xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Next wks End Sub

Sub PDF_Print_Sheet() 'Modifiziert - Ausgabe der selektierten Blätter in jeweils eine separate PDF-Datei Dim wks As Object For Each wks In ActiveWindow.SelectedSheets wks.Select wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("Username") & "\Desktop\" & wks.Name & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True Next wks End Sub Sub PDF_Print_GroupedSheets() 'Modifiziert - Ausgabe der selektierten Blätter in eine PDF-Datei Dim wkb As Workbook Set wkb = ActiveWorkbook ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("Username") & "\Desktop\" _ & Left(wkb.Name, InStrRev(wkb.Name, ".") - 1) & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub

Sub PDF_Print_Sheet() 'Modifiziert - Ausgabe der selektierten Blätter in jeweils eine separate PDF-Datei Dim wks As Object For Each wks In ActiveWindow.SelectedSheets wks.Select wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("Username") & "\Desktop\" & wks.Name & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True Next wks End Sub

Hallo Mathias,
ich habe keine Ahnung was du falsch gemacht hast, denn der Blick durch meine Kristallkugel reicht nicht so weit.
Ich habe den Code getestet, wobei er in ein allgemeines Modul der Datei eingebaut war.
Ich hab es jetzt mal probiert mit Makro unter einem Tabellenblatt-Modul und einer Schaltfläche aus den Formularsteuerelementen. Auch das funktioniert. Das Tabellenblatt mit der Schaltfläche muss dann aber auch bei jeder PDF-Ausgabe mit selektiert werden, idealer Weise als 1. Blatt.
Produziert denn der Ausdruck "C:\Users\" & Environ("Username") & "\Desktop\" ein gültiges Verzeichnis?
Der Fehler 400 wird generiert wenn das Verzeichnis ungültig ist.
Du musst diesen Ausdruck so anpassen, dass er ein gültiges Verzeichnis berechnet.
Außerdem darf im PDF-Viewer keine Datei geöffnet sein, die einen der automatisch generierten Dateinamen hat.
Gruß
Franz

Hallo Mathias,
ich hab jetzt mal Prüfungen des Verzeichnisses und des Dateinamens eingebaut mit entsprechenden Meldungen und Optionen für die Fortsetzung.
Gruß
Franz

Sub PDF_Print_Sheet()
'Modifiziert - Ausgabe der selektierten Blätter in jeweils eine separate PDF-Datei
Dim wks As Object
Dim strPfad As String, strName As String
strPfad = "C:\Users\" & Environ("Username") & "\Desktop"
'Prüfunmg ob Verzeichnis vorhanden
If Dir(strPfad, vbDirectory) = "" Then
MsgBox "Das Verzeichnis """ & strPfad & """ gibt es nicht!", _
vbOKOnly, "PDF speichern"
Else
strPfad = strPfad & "\"
For Each wks In ActiveWindow.SelectedSheets
strName = wks.Name & ".pdf"
'prüfen ob Dateiname im Verzeichnis schon vorhanden
If Dir(strPfad & strName)  "" Then
Select Case MsgBox("Die Datei """ & strName _
& """ existiert schon im Verzeichnis" & vbLf & strPfad _
& vbLf & "Datei überschreiben?", _
vbQuestion + vbYesNoCancel + vbDefaultButton2, "PDF speichern")
Case vbYes
'überschreibt vorhandene PDF-Datei gleichen Namens
Case vbNo
'überschreibt nicht vorhandene PDF-Datei gleichen Namens
GoTo next_wks
Case vbCancel
'bricht Speichern PDF ab
Exit For
End Select
End If
wks.Select
wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPfad & strName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
next_wks:
Next wks
End If
End Sub

Beliebteste Forumthreads (12 Monate)

pdf erstellen ohne pdf-Drucker zu installieren

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

188 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

pdf erstellen ohne pdf-Drucker zu installieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

188 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread