Drucken Word-Dokumente

Forumthread: 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

AW: Drucken Word-Dokumente

12.02.2007 20:38:35

Case
AW: Drucken Word-Dokumente

13.02.2007 07:27:55

Case

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Drucken Word-Dokumente

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread