Tabellenblatt nach Butten als PDF drucken

Croix-aigle

Mitglied
Hallo zusammen,

da ich die Funktion "Speichern unter" nicht nutzen kann, da ich alles gespeichert bekomme vom Tabellen Blatt.
Möchte ich über meinen Butten "Buchen", das Tabellenblatt gedruckt wird als PDF.

Mein Schritt war immer: Start ==> Drucken ==> Drucker Auswahl "Adobe PDF" Seite 1 von 1
Speichern: Rechnummer "D16" && Name "B8" in Ordner G:/.../../Einnahmen
 
Hi,

vielleicht so?

Code:
Sub PDF_Print_Sheet()
    'Modifiziert
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\Name\Desktop\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
End Sub
 
Servus jerry0110,

wenn ich den Pfadt C: anpasse, habe ich das PDF. Nun soll er nicht das ActiveSheet.Name nehmen, sondern Range("E10") & Range("A8:B8") & ".pdf"....
Muss ich Worksheets("Einnahmen").Range... setzen, dann kommt ein Fehler
Dann fehlt noch der Eintrag Seite 1 von Seite 1, da er mir sonst 3 Seiten macht
 
Zurück