Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich

Druckbereich
09.02.2006 09:31:15
walter
Guten Allerseits,
habe für den Druckbereich folgendes Makro:

Sub Seite2_Drucken()
Application.ScreenUpdating = False
ActiveSheet.Unprotect ("bb")
z = Range("b2").End(xlDown).Row
ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(z, 22)).Address
With ActiveSheet.PageSetup
.PrintTitleRows = "$2:$4"
.PrintTitleColumns = ""
.CenterHorizontally = True
.CenterVertically = False
' für Querformat
.Orientation = xlLandscape
' für Hochformat
.Orientation = xlPortrait
End With
'' ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
''  :=True
''''  ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ScreenUpdating = True
End Sub

Der Druckbereich wurde mit der Zeile:
ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(z, 22)).Address
ausgewählt.
Ich möchte aber nur die Seite 2 ausdrucken der Druckbereich soll ab der Zeile
ausgewählt werden WO das Wort: "Werksattt" steht und dann bis Ende !
Die Seite 1 soll von Zeile 2 bis zum Wort "Lager" auswählen.
Stehen immer in Spalte "B", krieg das nicht hin,
mfg walter

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

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich
09.02.2006 09:48:45
u_
Hallo,
mal als Anregung:

Sub Druckbereich()
Dim rngfind As Range
Dim z As Long
Set rngfind = Sheets(1).Columns(2).Find(what:="Werkstatt")
z = Range("B2").End(xlDown).Row
Sheets(1).PageSetup.PrintArea = Range(rngfind, Cells(z, 22)).Address
End Sub

Gruß
Geist ist geil!
Danke i.o.
09.02.2006 10:33:11
walter
Hallo U,
habe getestet, läuft. Danke !
Walter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige