Pdf mit Makro erstellen

Bild

Betrifft: Pdf mit Makro erstellen
von: Johannes
Geschrieben am: 11.10.2015 14:38:03

Hallo an alle,
Muss vorweg sagen dass ich keine erfahrung mit VBA habe. Möchte aber gerne für meine Rechnungen Makros einbauen.
- Makro für ausgewählte Zellen Drucken und als Pdf in einen bestimmten Ordner abspeichern.
- Der Dateiname sollte sich so zusammensetzen "rechnung_(Zellinhalte aus K10)"
Vielleicht kann mir ja jemand helfen.
Danke im vorraus.
Mfg Johannes

Bild

Betrifft: AW: Pdf mit Makro erstellen
von: Hajo_Zi
Geschrieben am: 11.10.2015 14:51:41
Hallo Johannes,
benutze doch den Makrorecorder der liefert schon brauchbare Ansätze.


Bild

Betrifft: AW: Pdf mit Makro erstellen
von: Johannes
Geschrieben am: 11.10.2015 20:23:14
Danke Hajo,
Habe ich gemacht.

Sub rechnung_print_pdf()
    Range("B2:L59").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "J:\Dokumente\Vermietung\Rechnungen\rechnung_.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Range("B2:L59").PrintPreview
End Sub
Aber wie kann ich die Rechnungsnummer die in der Zelle K10 steht hinter \rechnung_.....pdf schreiben?
Danke

Bild

Betrifft: AW: Pdf mit Makro erstellen
von: Hajo_Zi
Geschrieben am: 11.10.2015 20:38:01
"J:\Dokumente\Vermietung\Rechnungen\rechnung_" & Range("K10") &".pdf", Quality:=
Gruß Hajo

Bild

Betrifft: AW: Pdf mit Makro erstellen
von: Johannes
Geschrieben am: 11.10.2015 20:56:33


Sub rechnung_print_pdf()
    Range("B2:L59").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "J:\Dokumente\Vermietung\Rechnungen\rechnung_" & Range("K10") &".pdf", Quality:=
        xlQualityStandard , IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Selection.PrintPreview
End Sub
Bekomm eine Fehlermeldung: Fehler beim Kompilieren: Syntaxfehler
Mfg Johannes

Bild

Betrifft: AW: Pdf mit Makro erstellen
von: Sepp
Geschrieben am: 11.10.2015 21:43:51
Hallo Johannes,

Sub rechnung_print_pdf()
With Selection
  .ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="J:\Dokumente\Vermietung\Rechnungen\rechnung_" & Range("K10") & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=True, OpenAfterPublish:=False
  .PrintPreview
End With
End Sub

Gruß Sepp


Bild

Betrifft: AW: Pdf mit Makro erstellen
von: Johannes
Geschrieben am: 11.10.2015 22:35:32
Vielen Dank es klappt!
Mfg Johannes

Bild

Betrifft: AW: Pdf mit Makro erstellen
von: Fabi
Geschrieben am: 12.10.2015 14:57:27
Hallo Sepp,
darf ich fragen, wie Du den Code so schön farbig rein gestellt hast?
Vielen Dank für Dein Feedback im Voraus.
Viele Grüße,
Fabi :-)

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Pdf mit Makro erstellen"