Druck-Anpassen

Private Sub CommandButton13_Click()
Dim s
Dim z As Long
Application.ScreenUpdating = False
Range("B7").Select
Application.Calculation = xlCalculationManual
("b:b,k:k,l:l,m:m,p:p,r:r,s:s,t:t,v:v,y:y,z:z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE").Select
Selection.EntireColumn.Hidden = True        'NEU von Martin 22.02.2006
z = Range("a3").End(xlDown).Row
ActiveSheet.Range(Cells(2, 1), Cells(z, 31)).Select
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(2, 1), Cells(z, 31)).Address
.PrintTitleRows = "$2:$3"
.PrintTitleColumns = ""
.CenterHeader = "&""Arial,Fett""&12Geschäftswagen" & Chr(10) & "&14&A "
.RightHeader = "&""Arial,Fett"" "
.LeftFooter = "&""Arial,Fett""&8&P   von  &N"
.RightFooter = "&""Arial,Fett""&8 &F  &D  &T"
.Orientation = xlPortrait
.Zoom = 65
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.EntireColumn.Hidden = False       'Spalten wieder einblenden
Application.Calculation = xlCalculationAutomatic
Range("B3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:=getStrPasswort
Application.ScreenUpdating = True
End Sub