Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code erweitern mit Druckbereich und drucken

Code erweitern mit Druckbereich und drucken
25.02.2004 09:21:04
Fred
Hallo, ich möchte den in diesem Code ausgewählten Bereich als Druckbereich
definieren, und dann ausdrucken.
Kann mir da jemand helfen, und den Code erweitern ?
Gruß
Fred

Private Sub CommandButton3_Click()
Dim iZeilen As Integer
Dim ispalten As Integer
Sheets("Wochenplan").Activate
iZeilen = Selection.CurrentRegion.Rows.Select
ispalten = Selection.CurrentRegion.Columns.Select
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code erweitern mit Druckbereich und drucken
26.02.2004 10:19:04
Galenzo
Hallo,
die Zuweisung ist:
Sheets("Wochenplan").PageSetup.PrintArea=Sheets("Wochenplan").Range("A1").CurrentRegion.Address
mfg
AW: Code erweitern mit Druckbereich und drucken
26.02.2004 13:36:33
Fred
Hallo, Ich möchte aber den Bereich um die aktive Zelle markieren.
Wenn anstatt Range("A1").CurrentRegion.Address, nun den Code so umscheibe
Sheets("Wochenplan").PageSetup.PrintArea = Sheets("Wochenplan").Range(ActiveCell().CurrentRegion.Address)
Funktioniert es nicht ! Was ist falsch ? (Laufzeitfehler)
Wie müsste der Gesamte Code aussehen ?

Gruß
Fred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige