Anzeige

Tabellenblatt nach Butten als PDF drucken


#1
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
 

jerry0110

Erfahrenes Mitglied
#2
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
 
#3
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
 
Anzeige

Neue Beiträge

Anzeige