Justera sidbrytning

[Mikael63]

Finns det någon funktion, eller möjlighet med makro, där man med ett klick kan "utjämna" sista sidan?

 

 

 

***

***

 

[Mikael63]

Jag använder två inspelade makron som justerar en del men inte detta jag vill göra nu.

 

Sub Fit_Y()
'
' Fixa yttre förbindelsetabell
'

'
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$2"
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
         .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
     
    End With
    Application.PrintCommunication = True
End Sub

Sub Fit_A()
'
' Fixa apparatlista
'

'
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
         .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
     
    End With
    Application.PrintCommunication = True
End Sub