Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Word-Datei öffnen und direkt ausdrucken

Forumthread: Word-Datei öffnen und direkt ausdrucken

Word-Datei öffnen und direkt ausdrucken
18.04.2007 12:41:05
Holger.Waechter
Hallo zusammen,
wie ich eine Word-Datei aus Excel herraus öffne, weiss ich.
Wie bekomme ich es nun hin, das diese geöffnete Datei direkt ausgedruckt wird und danach wieder automatisch geschlossen wird ?
Gruss
Holger Wächter
P.S.: So öffne ich eine Word-Datei:
FileName = ActiveWorkbook.FullName
Längefilename = Len(FileName)
LookinFile = Left(FileName, Längefilename - 11) + "Bedienungsanleitung\"
StrPfad = LookinFile
Set MyShell = CreateObject("WScript.Shell")
strDateiName1 = Chr(34) & StrPfad & Stationstypen & ".doc.lnk" & Chr(34)
'*** Findet den Programmpfad des Programms für die zu öffnende Datei ***
strDateiName = StrPfad & "KoBuSys.doc"
Programmpfad = Chr(34) & GetLinkedApp(strDateiName) & Chr(34)
On Error GoTo Fehler
MyShell.Run ("" & Programmpfad & "" & strDateiName1 & "")
Set MyShell = Nothing
Cancel = True
Exit Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Word-Datei öffnen und direkt ausdrucken
18.04.2007 13:07:00
haw
Hallo Holger,
z.B. so:

Sub WordDrucken()
Dim wrdApp As Object
Dim wrdDoc As Object
Dim sFile As String
sFile = "C:\Test.doc"
If Dir(sFile) = "" Then
Beep
MsgBox "Worddokument wurde nicht gefunden!"
Else
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(sFile)
wrdDoc.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
wrdDoc.Close False
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End If
End Sub


Gruß
Heinz

Anzeige
AW: Word-Datei öffnen und direkt ausdrucken
18.04.2007 17:11:13
Holger.Waechter
Vielen dank,
das klappt super
Gruss
Holger
;

Forumthreads zu verwandten 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
mit VBA Word-Dokumente ausdrucken WICHTIG!!!!
Stefan Sasse

Hallo,wer kann mir hier weiterhelfen? Ich will in Excel-VBA Word-Dokumente automatisiert ausdrucken, d.h. ich habe mehrere Dateien, die in einer Schleife gesucht werden und dann verschoben werden, nach dem Verschiebe-Vorgang soll die Datei ausgedruckt werden. Wie mache ich dass?Bitte um Antwort...
26.04.2002 09:44:31
Thread-ID: 116512
2 Beiträge
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
Anzeige
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
Eingefügtes Worddokument komplett ausdrucken?
Piet

Hallo zusammen,
meine erste Frage hier, über die Suche bin ich nicht fündig geworden.
Einmal in Kurzform:
Wie kann ich ein in Excel eingefügtes, mehrseitiges Wordokument ausdrucken?
Und nun in Langform:
Ich habe eine Exceltabelle in dem div. Felder mittels Formel, Dropdownf...
10.11.2016 23:24:46
Thread-ID: 1524148
4 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
Anzeige
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
Commandbutton nicht drucken
Stefan Glander
Hallo Excelanier,
gibt es die Möglichkeit das beim drucken einer Tabelle die darin enthaltenen Commandbutton nicht mit gedrückt werden ?
Gruss
Stefan Glander
27.12.2003 19:04:09
Thread-ID: 356272
4 Beiträge
Word-Dokument über Excel ausdrucken!?
Andre
Hallo,
ich gebe über ein Makro Daten von Excel an Word und drucke diese Datei dann mit folgender Zeile. Alles auch kein Thema, aber leider besteht die Datei aus zwei Seiten, die ich aber nicht immer benötige, d.h. meistens soll nur die erste Seite ausgedruckt werden.
myWord.ActiveDocument.Pr...
09.02.2004 16:08:24
Thread-ID: 379166
7 Beiträge
Worddokument über Excel-Macro drucken
Ben

Hallo liebe Leute,
hab ein Problem! Ich möchte gerne ein Worddokument, welches sich die Daten von Excel holt, über ein Macro drucken. Was und wo muss dafür in mein Macro eingeben?
Meine Mappe ist unter folgendem Namen auf dem Server gespeichert: 6291.xls
Gruß Ben
13.05.2004 10:59:46
Thread-ID: 428070
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige