Druckbereich von gestern, Ingolf Bitte noch..
04.05.2006 08:42:24
gestern,
hatte gestern von U und Ingolf Hilfe bekommen, funktioniert auch.
Jetzt habe ich ein Problem, wenn ich beide Seiten ausdrucken möchte,
krieg ich es NICHT hin das die 1.Seite nur bis..E 220 CDI T
gedruckt wird.
Dim rngFind As Range
Set rngFind = Sheets("Matrix-DCVD").Columns(2).Find(What:="E 220 CDI T")
Sheets("Matrix-DCVD").PageSetup.PrintArea = Range(Cells(2, 2), rngFind.Offset(-1, 20)).Address
Hier mein Makro:
Sub Alles_Drucken()
Dim z As Long
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
.Zoom = 73 '
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Ich weiß leider nicht wie ich das regeln soll...
Ich bitte um Unterstützung,
Danke im voraus
mfg walter