beforeprint beforesave
26.02.2003 17:17:35
mimmo
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