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