MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.03.2018, 14:36   #1
dadadave
Neuer Benutzer
Neuer Benutzer
Standard VBA - Makro Drucken aller Arbeitsbläter mit einem bestimmten Drucker

Servus,

ist sowas mit einem Makro programmierbar?

So das bei Aktivierung des Makros, alle Arbeitsblätter über ein PDF Drucker gedruckt werden und die Datei mit dem Namen des Arbeitsblattes benannt wird. Seitenformatierung Quer und alle Spalten auf einer Seite.

Wenn die Antwort ja lautet, könntet Ihr dem Code erstellen? Ich habe leider keine Ahnung davon. Gern auch gegen eine Spende

Viele Grüße

David
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 14:38   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

Hallo David,

warum Drucken?
Einfach speichern unter.
Makrorecorder benutzen.

Ergänzung
Seitenausrichtung über Seite einrichten.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.

Geändert von Hajo_Zi (11.03.2018 um 14:48 Uhr).
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 15:04   #3
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Da wird der Rekorder nix nutzen!
@David:
Jedes Blatt in eine separate PDF oder alle Blätter einer Mappe in ein PDF?

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 15:15   #4
dadadave
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke für das Feedback.

jedes Arbeitsplatz in ein separates PDF, wenn es möglich ist. Oder aber in eine mit einer Überschrift mit den Namen des Arbeitsblattes würde auch gehen.
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 15:37   #5
dadadave
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Hajo, ich schaue mir das mal an, mit dem Recorder
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 16:15   #6
dadadave
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Gibt es eine Möglichkeit dem Dokument den Namen des Arbeitsblattes in dem Makro automatisch zu geben?
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 16:29   #7
R J
MOF Meister
MOF Meister
Standard

...klar geht das, aber wenn alle Blätter in ein pdf sollen, welcher Name welchen Blattes soll dann übernommen werden? Oder meintest Du den Dateinamen?

__________________

Ciao, Ralf

Kommt mir irgendwie bekannt vor...
Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.


R J ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 16:32   #8
dadadave
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich meine schon den Dateinamen.

Es gehen beide Varianten:
1. pro Arbeitsblatt ein PDF mit Dateinamen des Arbeitsblattes, gespeichert an einen fixen Ort.
2. Ein PDF mit Kopfzeile der einzelnen Arbeitsblätter, da bin ich gerade dran. Wenn es nur eine Datei ist, kann Sie einfach Abrechnung heissen.

Ich würde mir schon die 1. Variante wünschen da sie wegen der Ordnung übersichtlicher ist.

Geändert von dadadave (11.03.2018 um 16:38 Uhr).
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 16:55   #9
R J
MOF Meister
MOF Meister
Standard

Code:

Sub Print_Each_Sheet_as_PDF()

    Dim wks As Worksheet
    For Each wks In ActiveWindow.SelectedSheets
        
            wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             Environ("userprofile") & "Desktop" & wks.Name & ".pdf", Quality:=xlQualityStandard,  IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=  True
    Next wks
End Sub
...Edit... Mist...., die Forensoftware frisst ja die Bacjslashes.... also bitte an gegebener Stelle selbst ergänzen....

__________________

Ciao, Ralf

Kommt mir irgendwie bekannt vor...
Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.


R J ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 17:26   #10
dadadave
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

danke, probiere ich gliech aus, erstmal was essen
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 18:00   #11
dadadave
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Entschuldige, ich kann leider nicht erkennen, wo die backslash rein sollen ..
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 18:02   #12
dadadave
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

habe es
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 18:05   #13
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Code:

wks.ExportAsFixedFormat xlTypePDF, Environ("userprofile") & "\Desktop\" & wks.Name
Die explizite Nennung der Dateiendung ist bei dieser Methode nicht notwendig (schadet aber auch nix).

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 18:10   #14
dadadave
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

ja, hatte es. Bin sehr unerfahren und versuche mich daher im "krabbeln"

Es öffnet und speichert sich nur die aktuelle wks.

Ich vermute, ich muss den Code wahrscheinlich irgendwo anders eintragen
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.03.2018, 18:37   #15
dadadave
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ne, tut mir leid, er speichert immer nur das erste Arbeitsblatt. ä

Wie kommt oder mit welchem Befehl arbeitet der Makro die anderen Arbeitsblätter ab?
dadadave ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:01 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.