Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Druck Macro

Betrifft: Druck Macro von: Vulferin
Geschrieben am: 26.08.2014 19:05:28

Hallo zusammen,
ich habe eine UserForm.
Hier lasse ich mir Zeilen der Tabelle anzeigen.
Kann diese Verändern und speichern oder neue Zeilen hinzufügen.

Jetzt möchte ich gerene den Inhalt meiner Listenbox asudrucken
am liebsten wären mir 2 möglichkeiten
1. eine Übersicht, wo er mir die Tabelle aber nur bestimmte Felder ausdruckt.
2. ein Detaildruck, wo ich quasy die UserForm drucke, hier sollte er dann Zeile für Zeile des Listenfeldes durcharbeiten.
geht sowas ?
Ich bin leider Excel Vba New Newbie :)
verstehe zwar immer mehr mit eurer hilfe, mir auch schon dicke Bücher gekauft, aber das traue ich mir nicht zu.

  

Betrifft: AW: Druck Macro von: Vulferin
Geschrieben am: 26.08.2014 20:32:09

Hallo zusammen
hab diese Druck Macro gefunden
das würde mir schon reichen

Private Sub CommandButton1_Click()
Dim sngHeight As Single, sngWidth As Single

'aktuelle Größe in Variablen merken
sngHeight = Me.Height
sngWidth = Me.Width

'eventuell an Deine benötigte Größe anpassen
Me.Height = 360
Me.Width = 275

Zoom = 85

Me.PrintForm 'UF ausdrucken

'Form- Größe wieder zurücksetllen
Me.Height = sngHeight
Me.Width = sngWidth

Zoom = 100

End Sub

aber wie bekomme ich hin das ich vor dem drucken eine abfrage bekomme Nur selektierte Zeile aus der Listenbox drucken oder alle Zeilen in der Listenbox drucken
wenn alle Zeilen das er zeile für zeile auswählt selektiert und dann druckt