Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.10.2025 22:05:57
Erstellen von Links durch Zellenverknüpfung
12.10.2025 18:08:18
Behälter-, Bestandsmanagement
12.10.2025 12:13:05
Excel hat alter Version synchronisiert (aktuelle Daten weg)
12.10.2025 09:40:32
Wert in Exceltabellen suchen und Fundstelle ausgeben
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
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
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