Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pdf-Dokument erzeugen

Forumthread: Pdf-Dokument erzeugen

Pdf-Dokument erzeugen
Snewi
HAllo,
folgenden Code habe ich geschrieben um mit dem PDF-Creator ein PDF Dokument automatisch zu erzeugen! Irgendwie klappt es aber nicht ganz, denn ich muss im PDF-Creator Menü trotzdem noch immer den NAmen manuell eingeben!
Wie mache ich es richtig?

Sub PDFDruck()
Dim Datum As Date
'Datum setzen
Datum = Range("Zeitdaten!D2").Value
'Drucken
Application.ActivePrinter = "PDFCreator auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator auf Ne00:", Collate:=True
DoEvents
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "T:\06_Leistung_Zeiten\Leistung_Zeiten_" _
& Format(Datum, "mmyy") & ".pdf"
Application.DisplayAlerts = True
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Pdf-Dokument erzeugen
09.04.2012 15:08:13
mumpel
Hallo!
In Office 2007/2010 benötigt man kein PDF-Programm mehr, Stichwort ExportAsFixedFormatcolor>.
Gruß, René
AW: Pdf-Dokument erzeugen
09.04.2012 22:28:49
Snewi
Danke Rene! Hab was gefunden klappt super:

Sub PDF_Print_Sheet()
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"T:\Test_" & Format(Sheets("Zeit").Range("D2"), "MMYY") & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Application.DisplayAlerts = True
End Sub

Anzeige
AW: Pdf-Dokument erzeugen
10.04.2012 07:54:26
Snewi
Eine Frage hätte ich da noch, wie kann ich in Anlehnung an den o.g Code aus mehreren Sheets ein PDF machen!
z.b. Sheet Tabelle1 + Tabelle2
gruß
AW: Pdf-Dokument erzeugen
10.04.2012 10:01:07
Dirk
Hallo!
Einfach vorher die Blaetter zusammenfuehren (z.B. Inhalt aller Blaetter in neues Blatt kopieren) und dann dieses asl PDF exportieren.
Gruss
Dirk aus Dubai
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige