Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Word-Dateien drucken

Word-Dateien drucken
10.01.2020 17:12:36
Helmut
Hallo VBA-Profis,
wer kann mir bitte den Code mitteilen, wie man von Excel aus mehrere Word-Dateien aus einem Verzeichnis ausdrucken lassen kann?
Vielen Dank schon im voraus für Eure Unterstützung.
Helmut

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word-Dateien drucken
10.01.2020 17:33:30
Nepumuk
Hallo Helmut,
teste mal:
Option Explicit

Private Declare PtrSafe Function ShellExecuteA Lib "shell32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As LongPtr

Private Const SW_HIDE As Long = 0&

Public Sub WordDrucken()
    Const FOLDRER_PATH As String = "G:\Eigene Dateien\Eigene Dokumente\" ' Anpassen !!!
    Dim strFilename As String
    strFilename = Dir$(PathName:=FOLDRER_PATH & "*.doc*")
    Do Until strFilename = vbNullString
        Call ShellExecuteA(Application.hwnd, "PRINT", FOLDRER_PATH & _
            strFilename, vbNullString, vbNullString, SW_HIDE)
        strFilename = Dir$
    Loop
End Sub

Gruß
Nepumuk
Anzeige
AW: Word-Dateien drucken
10.01.2020 18:40:42
Helmut
Vielen Dank Nepumuk,
es hat funktioniert.
Allerdings kam bei der Bearbeitungsleiste ein gelber Balken mit der Meldung: "Makros wurden deaktiviert".
Was hat das zu bedeuten?
Gruß Helmut
AW: Word-Dateien drucken
10.01.2020 18:50:14
Nepumuk
Hallo Helmut,
keine Ahnung bei mir laufen nur digital signierte Makros. Schau mal in den Optionen - Trust Center was da bei den Optionen für Makros eingestellt ist.
Gruß
Nepumuk

22 Forumthreads zu ähnlichen Themen

Word-Dokumente via VBA ausdrucken
Stefan Sasse

Wer kann mir einen Tipp geben, wie ich über VBA-Code ein Word-Dokument ausdrucken kann, ohne Word zu öffnen?
Ich wäre für eine Antwort sehr dankbar!Gruß Stefan.
25.04.2002 12:41:41
Thread-ID: 116257
2 Beiträge
Anzeige
Word-Dateien aus Excel drucken
P.H.
Hallo Liebes Forum,
mein Vorhaben ist es mit einem Listenfeld verschiedene Word-Dokumente drucken lassen zu können.
Und zwar habe ich mir das folgendermaßen vorgestellt bzw. aufgebaut.
- Oberhalb meines Formular habe ich ein Listenfeld eingefügt, welches mit den Zellen AQ21:AQ31 verknüp...
20.05.2014 15:30:44
Thread-ID: 1362508
3 Beiträge
Worddatein aus Excel ausdrucken
Peter

Hallo zusammen,
ich bitte wieder um eure Hilfe.
1. Herausforderung
Ich habe in einem Ordner C:/Test Worddateien die ich gern direkt aus dem Ordner ausdrucken (also ohne sie zu öffnen). Im Windows-Explorer geht es recht einfach. Ordner öffnen - Datei markieren - rechte Maustaste - D...
21.10.2015 18:22:31
Thread-ID: 1453641
8 Beiträge
Anzeige
Word Datei drücken
Straub

Hallo
Ich möchte gerne ein DOC. mit VBA ausdrucken lassen. In mein Excel Datei mache ich Pfad auf, wo 2 doc. Datei sind. Und 1 von beiden wollte ich ausdrucken. Z.b. Test1.doc und Test2.doc. Test2.doc will ich ausdrucken.
Wenn mir ein helfen kann, würde ich dankbar sein
09.01.2017 09:49:22
Thread-ID: 1533916
2 Beiträge
aus Excel über CommandButton Worddokumente drucken
Andreas

Hallo Excelfreunde,
Ich habe mal wieder ein Problem wo ich keine geeignete Lösung dazu hinbekomme.
folgende 3 Makros werden einzeln je über einen CommandButton ausgeführt.
Sub WordDrucken_Unterlagen1() Dim wrdApp As Object Dim wrdDoc As Object Dim sFile As String sFile = Range("Z1")...
27.02.2017 11:06:14
Thread-ID: 1544287
7 Beiträge
Aus Word Excel Arbeitsmappe öffnen und drucken
Patricia

Hallo !!!Habe folgendes Problem kann mir bitte einer helfen !!!
Ich habe eine Worddokument in diesem habe ich einen Command Button angelegt. Ich möchte diesem Button den entsprechenden
Code hinterlegen das eine Exceldatei geöffnet wird (mit Pfad-
angabe) und anschließend von Blatt 1 de...
13.06.2003 10:21:44
Thread-ID: 268350
6 Beiträge
Word-Dokument aus EXCEL drucken
Peter Stähler
Hallo zusammen,

aus einer EXCEL-Tabelle heraus möchte über klick auf einen Button ein Word-Dokument drucken. Eine Interaktion mit dem Dokument ist nicht erforderlich. Einfach nur Drucken.
Ich versuche das mit dem folgenden Code:

Private Sub btnZentrale6_Click() Dim WordApp As...
10.10.2003 16:43:59
Thread-ID: 322040
4 Beiträge
Button nicht drucken
Carsten
Hallo zusammen.

Ich habe in einem Tabellenblatt vier Buttons. Drei davon stammen aus der Symbolleiste "Formular", einer aus der Steuerelement Toolbox.
Wenn ich nun diese Tabelle drucke, wir der Button aus der Toolbox ebenfalls gedruckt. Wie kann ich das verhindern?

Gruß
Carsten...
10.11.2003 09:39:23
Thread-ID: 335645
7 Beiträge
Anzeige

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
1
2
7
3
1
6
5
3
6
3
6
4
2
5
7
2
1
1
4
5
2