Office: Inhalt einer Listbox drucken

surfer01 · 4. Mai 2014

Hallo zusammen,

habe in Excel 2010 folgendes Problem:

In einer UserForm werden nach bestimmten Kriterien Daten aus einer umfangreichen Excel Datei in eine Listbox eingelesen. Besteht die Möglichkeit den Inhalt dieser Listbox auszudrucken? Habe hierzu bisher nichts im Forum und bei google gefunden. Vielen Dank im vorraus für Eure Hilfe!

Gruß
surfer

:)

chris-kaiser · 5. Mai 2014

Hi,

wäre es nicht besser den Inhalt wo auszugeben und dann diese Daten drucken?

Ansonsten auf der Form. z.B auf einem Button

Code:

Private Sub CommandButton1_Click()
Me.PrintForm
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

surfer01 · 12. Januar 2021

Hallo chris-kaiser,

von chris-kaiser

wäre es nicht besser den Inhalt wo auszugeben und dann diese Daten drucken?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da die Daten danach nicht weiter verwendet werden (der Inhalt ist eine Art ToDo-Liste die ich ausdrucken und abhaken will) und die Excel Datei komplex genug ist möchte ich die Daten ungern zwischenspeichern.

von chris-kaiser

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Sub CommandButton1_Click()
Me.PrintForm
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das druckt die ganz UserForm. Ich möchte nur den Inhalt der ListBox drucken!

Gruß
surfer

chris-kaiser · 5. Mai 2014

Hallo surfer,

Inhalt der Listbox in einer Hilfstabelle ausgeben -> Drucken

Du kannst auch gerne ein wenig im WWW surfen,
zu dem Thema Listbox Inhalt drucken.

Google

Soll jetzt nicht heißen das es nicht geht..., möglicherweise schafft das jemand mit irgendeiner API ^^, nur mir wäre diesbezüglich keine (einfachere) Möglichkeit bekannt.

surfer01 · 6. Mai 2014

Hallo Chris,

vielen Dank für Deine Hilfe!

Ich werde dann wohl doch den Umweg über eine Hilfstabelle nahmen. Google hatte ich vorher schon bemüht und leider nichts gedunden was funktioniert!

Gruß
surfer

chris-kaiser · 6. Mai 2014

Hi,

so was herumgetrickst...

Code:

Private Sub CommandButton1_Click()
Dim myListbox As Control
Set myListbox = Controls("Listbox1") 'anpassen
Dim OldTop As Double, OldLeft As Double, OldB As Double, Oldh As Double
OldB = Me.Width
Oldh = Me.Height
With myListbox
OldTop = .Top
OldLeft = .Left
.Top = 0
.Left = 0
Me.Width = .Width
Me.Height = .Height
Me.PrintForm
.Top = OldTop
.Left = OldLeft
Me.Width = OldB
Me.Height = Oldh
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das stellt die Listbox in die obere linke Ecke deiner Userform, die Userform wird verkleinert auf die Listboxgröße und nach dem Drucken der Form wird die Listbox und Form wieder zurückgestellt.
Mal schauen vielleicht geht es so *wink.gif*

surfer01 · 6. Mai 2014

Super *top

Vielen Dank! macht genau das was ich brauche!!!!

Gruß
surfer

chris-kaiser · 6. Mai 2014

Hi,

gerne doch *Smilie, ist mir in der Kaffeepause eingefallen. *grins
ggf. noch die Eigenschaft Spezialeffekt der Listbox auf Flat ändern und danach wieder zurückstellen, dann erscheint auch kein Schatten.

Code:

Private Sub CommandButton1_Click()
Dim myListbox As Control
Set myListbox = Controls("Listbox1") 'anpassen
Dim OldTop As Double, OldLeft As Double, OldB As Double, Oldh As Double
OldB = Me.Width
Oldh = Me.Height
With myListbox
.SetFocus 'falls welche Steuerelemente vor der Listbox aktiv sind
OldTop = .Top
OldLeft = .Left
.Top = 0
.Left = 0
Me.Width = .Width
Me.Height = .Height
.SpecialEffect = fmSpecialEffectFlat
Me.PrintForm
.Top = OldTop
.Left = OldLeft
Me.Width = OldB
Me.Height = Oldh
.SpecialEffect = fmSpecialEffectSunken
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

surfer01 · 6. Mai 2014

Mist, zu früh gefreut *entsetzt

Vor dem Ausdrucken lege ich mit

Code:

Application.Dialogs(xlDialogPrinterSetup).Show
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

den Drucker fest auf dem ich drucken möchte. Für worksheets passt das auch.

Code:

Me.PrintForm
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Code ignoriert das und druckt auf dem Standartdrucker *confused.gif*

Lt. Excel Hilfe

Der Drucker, der von PrintForm verwendet wird, wird durch die Einstellungen in der Systemsteuerung des Betriebssystems festgelegt
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe hier im Forum einige Beiträge gelesen, dass ein Umstellen des Druckers für
Code:

Me.PrintForm
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nicht möglich ist. Schade, oder hat jemand doch eine Lösung hierfür?????

Gruß
surfer

chris-kaiser · 6. Mai 2014

Hi,

ok ^^ Daten wo einlesen und dies ausdrucken wäre doch einfacher gewesen.

Aber hier mal was aus dem Netz und ein paar Umbauarbeiten von mir zusammengetrickst.

Code:

Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" _
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Function GetDefaultPrinter() As String
Dim TempName As String
Dim DeviceNr As Long
TempName = String(1024, 0)
DeviceNr = GetProfileString("windows", "device", 0&, TempName, 1024)
GetDefaultPrinter = Left(TempName, InStr(TempName, ",") - 1)
End Function

Function ChangePrinter(ByVal strPrinter As String) As Boolean
Dim WshNetwork As Object, oPrinters As Object, i As Integer
ChangePrinter = False
Set WshNetwork = CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 1 To oPrinters.Count Step 2
Debug.Print oPrinters.Item(i)
If InStr(1, strPrinter, oPrinters.Item(i)) Then
WshNetwork.SetDefaultPrinter oPrinters.Item(i)
ChangePrinter = True
Exit For
End If
Next
Set WshNetwork = Nothing
Set oPrinters = Nothing
End Function

Private Sub CommandButton1_Click()
Dim myListbox As Control
Set myListbox = Controls("Listbox1") 'anpassen
Dim OldTop As Double, OldLeft As Double, OldB As Double, Oldh As Double
Dim AktiverDrucker As String, StandardDrucker As String
StandardDrucker = GetDefaultPrinter
Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show
If Druckerwahl = True Then

ChangePrinter ActivePrinter 'Drucker wechseln
OldB = Me.Width
Oldh = Me.Height
With myListbox
.SetFocus 'falls welche Steuerelemente vor der Listbox aktiv sind
OldTop = .Top
OldLeft = .Left
.Top = 0
.Left = 0
Me.Width = .Width
Me.Height = .Height
.SpecialEffect = fmSpecialEffectFlat
Me.PrintForm
.Top = OldTop
.Left = OldLeft
Me.Width = OldB
Me.Height = Oldh
.SpecialEffect = fmSpecialEffectSunken
End With
End If
ChangePrinter StandardDrucker
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

surfer01 · 6. Mai 2014

Perfekt! Du bist der Beste *winner

Vielen Dank für Deine Mühe!

Gruß
surfer

chris-kaiser · 6. Mai 2014

Hi,

gern geschehen *Smilie
übrigens
wünsche ich Dir schon mal einen schönen Geburtstag morgen.

surfer01 · 6. Mai 2014

Danke, den werde ich sicher haben *biggrin.gif*

Office: Inhalt einer Listbox drucken

Inhalt einer Listbox drucken

Inhalt einer Listbox drucken

Inhalt einer Listbox drucken

Inhalt einer Listbox drucken

Inhalt einer Listbox drucken

Inhalt einer Listbox drucken - Similar Threads - Inhalt Listbox drucken

Tabellenkopfbezeichnungen in Abhängigkeit von Inhalt ausgeben

Auf die nächst mögliche Zelle mit Inhalt zugreifen

Meldung in Word "Von Word wurde nicht lesbarer Inhalt gefunden"

Inhalt eines Arrays in Listbox ausgeben

Inhalt aus mehreren Textboxen in Tabelle suchen und in Listbox ausgeben

Inhalt einer Listbox mehrfach in Tabelle ausgeben?

Userform: der Inhalt in einer Combobox soll den Inhalt einer Listbox beeinflussen