Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
632to636
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
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich festlegen

Druckbereich festlegen
05.07.2005 21:47:57
Simon
Hallo zusammen,
wer kann mir helfen?
Habe folgendes Problem, habe zwei Druckbereiche, der erste D.Bereich ist fest von "C8 : o8", der Zweite D.Bereich ist variabel also von "c oben : o unten"
habe zwei Versuche schon ausprobiert:
PageSetup.PrintArea = "$c$8:$o$9,$c$oben:$o$unten"
PageSetup.PrintArea = Range("c8:o8", "c & oben:o" & unten)
funktionieren Beide natürlich nicht,
hoffe von euch hat noch jemand Tipps
schon mal Danke
gruß simon

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

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich festlegen
05.07.2005 22:18:59
Matthias
Hallo Simon,
das geht nicht, ein Druckbereich muss ein zusammenhängender Bereich sein.
Du könntest vor dem Drucken aber die Zeilen dazwischen ausblenden:

Sub test()
Dim oben As Integer, unten As Integer
oben = 20: unten = 50
If ActiveSheet.Name = "Tabelle1" Then 'Tabellenblattnamen prüfen
Rows("10:" & oben - 1).Hidden = True
With ActiveSheet
.PageSetup.PrintArea = "$c$8:$o$" & unten
.PrintPreview
End With
End If
End Sub

Gruß Matthias
hey danke, nach etwas herumprobieren klappts
05.07.2005 22:52:17
Simon
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige