Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Arbeitsblätter per Makro als PDF drucken

Bestimmte Arbeitsblätter per Makro als PDF drucken
09.06.2006 14:28:02
Michael
Hallo xlGemeinde,
da ich voll die Null in VBA bin. Bräuchte ich wieder Eure Hilfe.
Wie kann ich per Makro bzw. wie muss der Code aussehen, wenn ich mehrere Blätter einer Mappe als PDF drucken will.
Am besten sollte der Dateiname aus einem gewissen Vorgabe bestehen z.B. "Bericht_" und den Monat gebe ich dann im Speichern unter Menü selbst an. Also das die fertige PDF Datei nachher dann Bericht_Mai2006.pdf heisst.
Besten Dank für Eure Hilfe
Gruß
Michael

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Arbeitsblätter per Makro als PDF drucken
09.06.2006 15:26:02
Bernhard
Hallo Michael,
schau mal, ob das das ist, was du brauchst. Ich habe die Funktion mal geschrieben
um das aktuelle Sheet auf unserem PDF Drucker "Ghostscript PDF Writer 1.2 auf RPT1:"
(den Namen + Anschluss musst du natürlich ersetzen) rauszulassen

Sub Abspeichern_Printen()
Dim strTitel As String
Dim strRelPfad As String
Dim strPrinter As String
' setzt den alten Drucker.
strPrinter = Application.ActivePrinter
strTitel = InputBox("Unter welchem Titel abspeichern? (ohne .pdf)", , "Bericht_" & activesheet.name())
strRelPfad = "c:\" & strTitel
Application.ActivePrinter = "Ghostscript PDF Writer 1.2 auf RPT1:" 'Druckername UND Anschluss
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, PrintToFile:=True, PrToFileName:=strRelPfad
Application.ActivePrinter = strPrinter
End Sub

Wenn das mit der automatischen Benennung des PrinttoFile bei dem PDF Drucker
nicht funktioniert (hats bei mir auch nicht), dann
hilft
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Da musst du dann den Namen per Hand eingeben.
Viel Erfolg
Bernhard
Anzeige
AW: Bestimmte Arbeitsblätter per Makro als PDF drucken
14.06.2006 13:41:45
Michael
Hallo Bernhard,
ich habe folgendes jetzt zusammengestellt. Funktioniert soweit ganz bis das ich den Speicherort der Datei nicht bestimmten kann. d.h. er speichert nicht auf C:\ ab
Gruß
Michael

Sub PDF_drucken()
Dim strRelPfad As String
Dim strTitel As String
strTitel = InputBox("Unter welchem Titel abspeichern? (ohne .pdf)", , "RR_BAH_")
strRelPfad = "c:\" & strTitel
Sheets(Array("Title", "Overview_NS_Month", "Overview_NS_YTD", "Overview_OI_Month", _
"Overview_OI_YTD", "World_NS_Market", "EU_NS_Market", "AM_NS_Market", _
"AAA_NS_Market")).Select
Sheets("Title").Activate
'  ActiveWindow.ScrollWorkbookTabs Sheets:=1
'  ActiveWindow.ScrollWorkbookTabs Sheets:=1
Application.ActivePrinter = "Acrobat PDFWriter auf LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, printtofile:=True, PrToFileName:=strRelPfad, ActivePrinter:= _
"Acrobat PDFWriter auf LPT1:"
End Sub

Anzeige

100 Forumthreads zu ähnlichen Themen

als PDF drucken
KLE

Hallo und Guten Abend zusammen,
...jetzt habe ich meine Datei super hinbekommen - alles funktioniert und so, aber wie immer kommt mein Chef im Nachgang mit einem Sonderwunsch...und da komm ich ohne Eure Hilfe auch nicht weiter :o(
Ich habe es nun dank Eurer Unterstützung geschafft aus e...
25.09.2008 18:01:07
Thread-ID: 1012395
2 Beiträge
Anzeige
Nur bestimmten Bereich Drucken
Willy

Hallo Leute
Habe eine Tabelle A1-D60 mit Rahmen und Zwischenlinien, ab der 4. Zeile sind die Spalten miteinander verbunden.
Es soll nur der Bereich gedruckt werden, wo was drin steht, einzelne leer Zeilen sollen ignoriert (leer gedruckt) werden und am Ende sollen zwei leer Zeilen mit ge...
14.02.2009 12:21:00
Thread-ID: 1050686
4 Beiträge
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
Anzeige
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
PDF ausdrucken- Ergebnis NICHT anzeigen
Björn

Hallo Leute,
eigentlich ist mein Problem kein richtiges Excel-Problem sondern eher ein AdobeAcrobat-Problem.
Ich habe ein Makro erstellt mit dem diverse PDF (über drucken als PDF) erzeugt werden. Das Problem ist, daß bei jedem Ausdruck auch das Ergebnis angezeigt wird (also die erstellt...
05.03.2010 23:07:25
Thread-ID: 1143830
6 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
2
13
1
1
4
2
5
3
1
5
2
2
6
1
7
2
1
5
8
2
3
1