Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige