Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
784to788
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

userform textbox drucken?

userform textbox drucken?
26.07.2006 00:02:11
selo
hallo,
ist es möglich den Inhalt einer userform textbox mittels eines commandbuttons zu drucken?
gruß selo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: userform textbox drucken?
26.07.2006 00:05:36
Josef
Hallo Selo!
Eine Möglichkeit.
Private Sub CommandButton1_Click()
Open "C:\Temp\Dummy.txt" For Output As #1
Print #1, TextBox1.Text
Close #1
ShellExecute 0, "Print", "C:\Temp\Dummy.txt", "", "", 0
Kill "C:\Temp\Dummy.txt"
End Sub


Gruß Sepp

Anzeige
AW: userform textbox drucken?
26.07.2006 00:09:36
selo
Hallo sepp
danke ertseinmal das du mir versuchtst zu helfen
bekomme jedoch ind der zeile
ShellExecute 0, "Print", "C:\Temp\Dummy.txt", "", "", 0
eine fehlermeldung
sub oder function nicht definiert
selo
Funktion vergessen!
26.07.2006 00:12:40
Josef
Hallo Selo!
Da hab ich doch wirklich die entsprechende Funktion vergessen;-)
Das gehört noch dazu (in ein allgemeines Modul).
' **********************************************************************
' Modul: Modul3 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public 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 nShowCmd As Long) As Long

Gruß Sepp

Anzeige
AW: Funktion vergessen!
26.07.2006 00:22:05
selo
Hallo sepp
ich habe dden code eingefügt und textbox in listbox umgeändert jedoch ist das blatt was gedruckt werden soll leer obwohl daten in der listbox enthalten sind
Open "C:\Temp\Dummy.txt" For Output As #1
Print #1, ListBox1.Text
Close #1
ShellExecute 0, "Print", "C:\Temp\Dummy.txt", "", "", 0
Kill "C:\Temp\Dummy.txt"
woran kann das liegen
gruß
selo
AW: Funktion vergessen!
26.07.2006 00:35:44
Josef
Hallo Selo!
Warum fragst du dann nach TextBox drucken?
Bei einer listbox wird so nur etwas gedruckt, wenn ein Eintrag ausgewählt wird.
Wenn du die gesamte Listbox ausdrucken willst, dann so.
Private Sub CommandButton1_Click()
Dim strText As String
Dim lngL As Long

For lngL = 0 To ListBox1.ListCount - 1
  strText = strText & ListBox1.List(lngL) & vbLf
Next

Open "C:\Temp\Dummy.txt" For Output As #1
Print #1, strText
Close #1
ShellExecute 0, "Print", "C:\Temp\Dummy.txt", "", "", 0
Kill "C:\Temp\Dummy.txt"

End Sub


Gruß Sepp

Anzeige
sorry
26.07.2006 00:48:59
selo
hallo sepp
sorry ist vielleicht doch zu spät für mich das ich mittlerweile nicht mehr zwischen textbox und listbox unterscheiden kann.
muss meine userform glaube ich etwas umschreiben, da das ausdrucken bei der listbox mit mehr als 50 datensätzen doch etwas papierverschwenderisch ist.
muß alles umschreiben für eine textbox.
sorry nochmal hast mir aber sehr weitergeholfen.
das verschreiben hatte doch etwas gutes gehabt.
wünsche eine angenehme nacht.
gruß
selo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige