Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text datei über UserForm und Button drucken lassen

Text datei über UserForm und Button drucken lassen
13.07.2004 13:20:47
Frank
Hallo zusammen,
kann ich eine geöffnete Textdatei auch über einen Button auf meiner UserForm ausdrucken?
Mfg Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text datei über UserForm und Button drucken lassen
Piet
Klar, einfach activesheet.printout
Piet
AW: Text datei über UserForm und Button drucken lassen
13.07.2004 14:16:42
Frank
Hallo Piet,
danke für dein Tip,
jedoch habe ich gemeint,
ich mache eine Textdatei auf mit
Set myshell = CreateObject("WScript.Shell")
myshell.Run pfad
jetzt täte ich gerne noch dieses Textfile drucken wollen, automatisch im code, z.B. so
Set myshell = CreateObject("WScript.Shell")
myshell.Run pfad
pfad drucken
ohne lang manuell, Datei und dann drucken
Mfg Frank
AW: Text datei über UserForm und Button drucken lassen
Piet
Versteh ich nicht.
Piet
AW: Text datei über UserForm und Button drucken lassen
13.07.2004 16:15:04
Nepumuk
Hallo Frank,
geöffnete Textdatei ist schwierig. Geschlossene einfach so:


Option Explicit
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 lpnShowCmd As Long) As Long
Public Sub test()
    ShellExecute 0, "print", "Neu Textdatei.txt", vbNullString, "C:\Dokumente und Einstellungen\Administrator\Desktop\", 0
End Sub


Gruß
Nepumuk
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige