Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Drucken Word-Dokumente

Drucken Word-Dokumente
12.02.2007 14:23:18
Markus
Hallo,
ich habe in einem Excel-Sheet (Spalte A) Word-Dokumente aufgelistet.
Diese Liste wechselt ständig.
Kann man mittels eines VBA-Scriptes all diese Dokumente drucken.
Danke für Antwort
Markus

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

Betreff
Datum
Anwender
Anzeige
AW: Drucken Word-Dokumente
12.02.2007 20:38:35
Case
Hallo,
das geht so: (DAS PUBLIC DECLARE GEHÖRT MIT LEERZEICHEN VOR FUNCTION)
Option Explicit
Public Declare

Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub Word_Drucken()
Dim wksBlatt As Worksheet
Dim strDatei As String
Dim lngAnzahl As Long
Dim lngZeile As Long
Set wksBlatt = ThisWorkbook.Worksheets("Tabelle1")
With wksBlatt
lngZeile = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
End With
For lngAnzahl = 1 To lngZeile
strDatei = wksBlatt.Cells(lngAnzahl, 1).Text
ShellExecute 0, "Print", strDatei, "", "", 2
Next lngAnzahl
Set wksBlatt = Nothing
End Sub

Mehr Informationen dazu auch hier:
http://support.microsoft.com/kb/170918/de
Und hier:
http://www.vbarchiv.net/vbapi/ShellExecute.php
Vorgabe für das obige Makro:
Name der Tabelle - Tabelle1
Namen ab Zelle A1
In der Form "C:\Temp\Test.doc"
Wenn Du den Pfad nicht in der Zelle stehen hast, dann musst Du den noch mit übergeben.
Servus
Case
Anzeige
AW: Drucken Word-Dokumente
13.02.2007 07:27:55
Case
Hallo,
hier nochmal der richtig dargestellte Code.
Option Explicit
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub Word_Drucken()
Dim wksBlatt As Worksheet
Dim strDatei As String
Dim lngAnzahl As Long
Dim lngZeile As Long
Set wksBlatt = ThisWorkbook.Worksheets("Tabelle1")
With wksBlatt
lngZeile = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
End With
For lngAnzahl = 1 To lngZeile
strDatei = wksBlatt.Cells(lngAnzahl, 1).Text
ShellExecute 0, "Print", strDatei, "", "", 2
Next lngAnzahl
Set wksBlatt = Nothing
End Sub

Servus
Case
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige