Dateien aus msoFileDialogOpen drucken

Hallo zusammen!
habe leider nix passendes zu dem Thema gefunden.
Ich habe in einem Makro folgenden Code stehen, um nach dem Klick auf einen Button ein _
Dateiauswahlfenster zu öffnen und im Anschluss die ausgewählten Dateien an eine Mail anzuhängen (nur ein Auszug, vor diesem Codeteil steht natürlich noch mehr...):


MsgBox ("Bitte Dateien auswählen.")
Set fdOpen = Application.FileDialog(msoFileDialogOpen)
With fdOpen
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
.InitialFileName = ActiveWorkbook.path
.Title = "Bitte die zu sendende(n) Datei(en) auswählen!"
.ButtonName = "per E-Mail senden"
If .Show = True Then
Dim i As Integer
If .SelectedItems.Count > 0 Then
For i = 1 To .SelectedItems.Count
Mail.attachments.Add .SelectedItems(i)
Next
End If
End If
End With
Mail.Display

Ich möchte nun ein weiteres Makro schreiben, bei welchem sich genau wie oben ein Dateiauswahlfenster öffnet, in dem ich mehrere Dateien auswählen kann und die ausgewählten Dateien im Anschluss dann gedruckt werden.
Habe statt der Zeile

Mail.attachments.Add .SelectedItems(i)

schon einige Print-Befehle ausprobiert (absolut frei Schnauze, da ich mit den Befehlen nicht so vertraut bin) aber nix hat funktioniert (was zu erwarten war...).
Kann mir jemand auf die Sprünge helfen?
Danke :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim wkb As Workbook, wks As Worksheet Dim i As Integer MsgBox ("Bitte Dateien auswählen.") Set fdOpen = Application.FileDialog(msoFileDialogOpen) With fdOpen .AllowMultiSelect = True .InitialView = msoFileDialogViewList .InitialFileName = ActiveWorkbook.Path .Title = "Bitte die zu sendende(n) Datei(en) auswählen!" .ButtonName = "per E-Mail senden" If .Show = True Then If .SelectedItems.Count > 0 Then For i = 1 To .SelectedItems.Count Set wkb = Workbooks.Open(.SelectedItems(i)) For Each wks In wkb.Worksheets wks.PrintOut Next wkb.Close False Next End If End If End With

Private Declare Function ShellExecuteA Lib "shell32.dll" ( _ 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 Drucken(strFile) ShellExec strFile, , "print" End Sub Sub chris() Dim wkb As Workbook, wks As Worksheet Dim i As Integer MsgBox ("Bitte Dateien auswählen.") With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .InitialView = msoFileDialogViewList .InitialFileName = ActiveWorkbook.Path .Title = "Bitte die zu sendende(n) Datei(en) auswählen!" .ButtonName = "per E-Mail senden" If .Show = True Then If .SelectedItems.Count > 0 Then For i = 1 To .SelectedItems.Count If Right(.SelectedItems(i), 4) = ".pdf" Then Drucken .SelectedItems(i) Else Set wkb = Workbooks.Open(.SelectedItems(i)) For Each wks In wkb.Worksheets wks.PrintOut Next wkb.Close False End If Next End If End If End With End Sub

Option Explicit Dim strfile As String Private 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

Private Sub Print() Dim wkb As Workbook, wks As Worksheet Dim i As Integer MsgBox ("Bitte zustäzlich zu druckende Dateien auswählen.") With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .InitialView = msoFileDialogViewList .InitialFileName = ActiveWorkbook.path .Title = "Bitte die zu druckende(n) Datei(en) auswählen!" .ButtonName = "Drucken" If .Show = True Then If .SelectedItems.Count > 0 Then For i = 1 To .SelectedItems.Count If Right(.SelectedItems(i), 4) = ".pdf" Then Drucken .SelectedItems(i) Application.Wait (Now + TimeValue("0:00:10")) Call AcroReaderBeenden Else Set wkb = Workbooks.Open(.SelectedItems(i)) For Each wks In wkb.Worksheets wks.PrintOut Next wkb.Close False End If Next End If End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Dateien aus msoFileDialogOpen drucken

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread