Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken

Forumthread: Drucken

Drucken
06.04.2003 11:45:35
Daniela
Hallo, hab schon wieder eine Frage :)
Ich habe 13 Tabellen und möchte in einer Userform mit 13 CheckBoxen eine Auswahl treffen können welche Tabellen ich drucke. Allerdings sollen auch mehrere ausgewählt werden können und dazu noch das ganze im Querformat. Ist das möglich??

Danke schon mal für die Hilfe :)

Daniela

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Drucken
06.04.2003 12:11:49
Ramses

Hallo Daniela,

Die Seiteneinrichtung solltest du sowieso vorher über

Datei - Seite einrichten

festlegen.

Aber eine Druckprocedur könnte so aussehen:


Gruss Rainer

Re: Drucken
06.04.2003 14:50:06
L.Vira

Hallo, Ramses,
das geht aber auch drastisch kürzer in einer netten kleinen
Schleife.
Gruß L.Vira

Anzeige
Re: Drucken
06.04.2003 21:36:53
Ramses

Hallo L.Vira,

dachte ich zuerst auch,... aber wie willst du dann die entsprechenden Tabellen adressieren in der Schleife, dann musst du wieder abfragen.
Oder habe ich jetzt einen Durchhänger.

Gruss Rainer

Re: Drucken
06.04.2003 22:34:50
L.Vira

Hallo, Ramses,

Private Sub cmdPrint_Click()
Dim i As Integer, WS As Worksheet
Set WS = ActiveSheet
cmdPrint.TakeFocusOnClick = False
WS.Select
For i = 1 To 13
If ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = True Then
Sheets(i).Select False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
WS.Select
Set WS = Nothing
End Sub

Gruß L.Vira

Anzeige
Re: Drucken
07.04.2003 09:06:26
Daniela

Wow so viele Anworten, danke hat mir sehr geholfen
Daniela

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige