beforeprint beforesave

Ich versuche gerade nach unten angeführten
makro das ich in einem modul erstellt habe die zellenHöhe und breite zu verändern before ich das sheet drucke oder abspeichere.
aber es funktioniert nicht mit meinem makro

Private Sub Workbook_beforeprint(Cancel As Boolean)
Dim ws As Worksheets
Set ws = Worksheet
For Each ws In Worksheets
For i = 1 To 13
Columns(i).Select
Selection.ColumnWidth = 12.75
Next i
For i = 2 To 72
Rows(i).RowHeight = 16
Next i
End Sub

kann mir jemand helfen
mfg mimmo