Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
240to244
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
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige