ich habe folgendes:
Ich wähle in einer USERFORM über einen button eine datei aus, deren inhalt ich dann in einer combobox auswählen kann und ausdrucken kann.
Ich hätte gerne , dass ich über den button "auswählen", den gesamten ordner ausdrucke.
Beispiel:
klick auf button, c:mandantenbriefe/petra müller auswählen.
Alle xls dateien in c:mandantenbriefe/petra müller werden nach klick auf "drucken" 3 x ausgedruckt.
zur zeit habe ich es so das ich jede einzelne xls datei anwählen muß um sie auszudrucken.
kann mir da jemand helfen?
ich bedanke mich im voraus
Gruß
ralf
Private Sub UserForm_Activate()
Dim lstrFile As String
'in der nächsten Befehlszeile werden im Verzeichnis D:\ alle darin befindlichen Dateien
'in die Combobox eingelesen
'du musst bei pstrPfad anstelle von C:\ DEIN Verzeichnis eintragen, in dem sich
'deine Dateien befinden
'und wenn du nur bestimmte Dateien in der Combobox auflisten willst, musst du anstelle
'von *.* für z Bsp nur xls-Dateien *.xls eintragen
'du hast leider nicht erwähnt, welche Dateien aufgelistet werden sollen
pstrPfad = "C:\Mandantenbriefe\"
lstrFile = Dir(pstrPfad & "*.xls")
Do Until lstrFile = ""
ComboBox1.AddItem lstrFile
lstrFile = Dir
Loop
End Sub