Passen Sie den Bereich und den Dateipfad (falls gewünscht) in dem Code an, den Sie drucken möchten. Sie können die Arbeitsdatei unten herunterladen. `link: / [ Save Excel Range as PDF using VBA] Erläuterung: Der Code ist einfach. Zunächst haben wir zwei Variablen erstellt. "InvoiceRng as Range" für den Bereich / das Blatt, das bzw. Excel als pdf speichern vba mac. das wir als PDF speichern möchten. strFile für den vollständig qualifizierten Dateinamen des resultierenden PDF. Da unser Druckbereich festgelegt ist, setzen wir den Rechnungsbereich auf Bereich ("A1: L21"). In den beiden obigen Zeilen benennen wir die Datei zuerst mit einem Zeitstempel und fügen sie dann dem Pfad der Hauptdatei hinzu. Infolgedessen enthält die PDF-Datei den vollständig qualifizierten Namen der resultierenden PDF-Datei. invoiceRng. ExportAsFixedFormat _ Type:=xlTypePDF, _ IgnorePrintAreas:=True, _ Schließlich verwenden wir die ExpoortAsFixedFormat-Methode der Range-Klasse, um den definierten Excel-Bereich als PDF zu drucken. Wir definieren Typ als xlTypePDF.
Das klappt auch hervorragend. Jetzt mein Problem: Wenn ich auswhle, bekomme ich die Datei ebenfalls angeboten mit dem Speichernamen aus den angegebenen Zellen (wie gewnscht). Excel als pdf speichern vba pdf. Wenn ich dann auf speichern klicke, geht das Druckmen des PDF-Druckers auf und bietet mir als Speichernamen den Namen der Ausgangsdatei an (In diesem Fall: Kwg-Tankzug Vorlage fr Bilder) Ich wrde aber gerne den Namen, der durch das Makro entsteht, auch im PDF-Drucker bernehmen, nur wei ich leider nicht, inwieweit und wo ich das Makro dann abndern muss. ( wenn ich die Datei zuerst als abspeichere, klappt es, allerdings will ich das verhindern, da ich die Excel-Datei nicht brauche) Hab es schon versucht mit: indem ich das " Filename:=FileSaveName" nach dem Case "pdf" nochmal eingefgt habe, allerdings macht es mir dann eine Excel-Datei mit der Endung draus. Vielleicht kann man hier draus was verwenden, trau ich mich nicht so ganz, sonst schiee ich mein Makro vielleicht ganz ab... Wei leider nicht mehr weiter und bin fr jede Hilfe dankbar.
Einfach mit anonymisierten Beispieldaten, derr Aufbau mu aber identisch bleiben. Verfasst am: 27. Okt 2012, 20:25 Rufname: Dan hey hey..... ja hab halt echt noch so wenig verstanden von dieser vba geschichte, dass ich einfach auch noch nicht berblick welche informationen wichtig sind und welche eben nicht. die datei kann ich auf keinen fall den code den du mir gegeben hast fr die einzelnen pdfs ffnen und die sind halt auch querformat.... gibts trotzdem noch ne mglichkeit mir zu helfen?? Verfasst am: 27. Okt 2012, 20:30 Rufname: Case Du sollst ja auch nicht die Originaldatei hochladen, sondern die Datei mit anonymisierten Daten - es geht ja nur um den Aufbau. Das sollte doch gehen, oder? PDF Speichern mit VBA. Wenn nicht, kannst Du mir das Teil auch mal per Mail senden und ich frickel dir das kurz rein. Verfasst am: 28. Okt 2012, 01:30 Rufname: Case Zitat: zu dem fgts irgendwelche berhaupt nicht vorhandenen farben mit Also solche Farben kenne ich noch aus meiner wilden Zeit in Mannheim. Wenn wir da hin und wieder mal einen Trip eingeworfen haben, konnte ich auch die t o l l s t e n Farben sehen.
Laden Sie die Arbeitsdatei herunter. link: / allgemeine-themen-in-vba-ausschalten-warnen-nachrichten-mit-vba-in-microsoft-excel [Warnmeldungen mit VBA in Microsoft Excel 2016 ausschalten] | Um Warnmeldungen zu deaktivieren, die den laufenden VBA-Code unterbrechen, verwenden wir die Application-Klasse. Excel als pdf speichern vba gratis. link: / files-workbook-and-worksheets-in-vba-add-and-save-new-workbook-using-vba-in-microsoft-excel [Neue Arbeitsmappe mit VBA in Microsoft Excel 2016 hinzufügen und speichern] | Zum Hinzufügen und Speichern von Arbeitsmappen mit VBA verwenden wir die Klasse Arbeitsmappen. fügt problemlos neue Arbeitsmappen hinzu …
Ich hoffe, ich habe mich verstndlich ausgedrckt? Gru Torsten _________________ Gott sei Dank gibts office-loesung Verfasst am: 04. Jun 2009, 11:20 Rufname: Torsten hab noch was gefunden, was mir vielleicht helfen wrde, wenn ich wsste, wie ich zusamennfgen muss. Excel - VBA Speichern als PDF - Seitenformat | ComputerBase Forum. Zitat: Sub dateiname() Und das Makro hier Zitat: Sub Test() Kill "X:\GROUPS\Beduin\G404\08_Produktion\005_Abfllstellen\Fotos 2009\*" Wenn mir da jemand helfen knnte, wie ich das kombinieren muss: Datei soll als Excel-Datei abgespeichert werden, dann anschlieend als PDF-gespeichert werden (nur so geht das anscheinend mit dem Dateinamen aus den Zellen) Anschlieend soll die Excel-Datei gelscht werden. Das Ganze soll dann automatisch ablaufen. Bin fr jede Hilfe dankbar Verfasst am: 05. Jun 2009, 20:31 Rufname: Torsten So, ich glaube, ich habe eine Lsung gefunden: Code: Sub dateiname() strPath = tSaveAsFilename(InitialFileName:="Kwg " & Range("f30") & " - " & Range("f32") & " - " & Range("f31") & "", filefilter:="Exceldateien (*), *, Alle Dateien (*.
Excel-Tabelle als PDF speichern mit Pfad Autor Nachricht propper Ahnungsloser Verfasst am: 01. Jun 2009, 21:02 Rufname: Torsten Version: Office 2003 Hallo allerseits, habe mir ein Makro zusammengebastelt (Alles von): Code: Sub dateiname() Dim strPath As String ChDrive "X:\" ChDir "X:\GROUPS\Beduin\G404\08_Produktion\005_Abfllstellen\Fotos 2009" FileSaveName = tSaveAsFilename(InitialFileName:="Kwg " & Range("f30") & " - " & Range("f32") _ & " - " & Range("f31") & "", FileFilter:="EXCEL-Tabelle (*), *, pdf datei (*), *") Select Case LCase$(Right$(FileSaveName, 3)) Case "xls" Filename:=FileSaveName Case "pdf" 'deine Druckroutine fr PDF tivePrinter = "ScanSoft PDF Create! Excel | Mehrere Arbeitsblätter per VBA als PDF speichern | ComputerBase Forum. auf Ne00:" intOut Copies:=1, ActivePrinter:= _ "ScanSoft PDF Create! auf Ne00:", Collate:=True End Select End Sub funktioniert auch fast ganz. Wenn ich das Makro starte, fragt es beim Speichern die Zellen F30, F32, F 31 ab und nimmt den Inhalt dieser Zellen als Dateinamen mit der Endung oder Im Speichermen kann ich das dann auswhlen.