Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1376to1380
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druck Macro

Druck Macro
26.08.2014 19:05:28
Vulferin
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druck Macro
26.08.2014 20:32:09
Vulferin
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
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige