Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druck ausgewählter Dateien

Forumthread: Druck ausgewählter Dateien

Druck ausgewählter Dateien
23.08.2019 16:18:50
haustein
Hallo liebe Gemeinschaft,
habe eine Exclliste, die so ungefähr aussieht
Name_____Monat____Dateiname
Peter____Juni_____c:\ablage\peter.pdf
usw.
nun möchte ich in der Spalte hinter Dateiname z.b. ein "x" setzen - um damit zu erreichen, dass alle Dateien, die mit einem "x" markiert wurden - ausgedruckt werden
könnt ihr mir dabei helfen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Druck ausgewählter Dateien
23.08.2019 16:30:04
Nepumuk
Hallo,
teste mal:
Option Explicit

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

Private Const SW_HIDE As Long = 0

Public Sub Drucken()
    Dim lngRow As Long
    For lngRow = 2 To Cells(Rows.Count, 4).End(xlUp).Row
        If Cells(lngRow, 4).Value = "x" Then _
            Call ShellExecuteA(Application.hwnd, "PRINT", Cells(lngRow, 3).Value, _
            vbNullString, vbNullString, SW_HIDE)
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Druck ausgewählter Dateien
23.08.2019 16:56:01
haustein
lieben dank für deinen code - leider passiert da nichts
AW: Druck ausgewählter Dateien
23.08.2019 17:03:21
haustein
sorry - klappt klasse - danke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige