Hej Forum,

Denne Kassekladdeudskrift ”Sub Udskriv()” – se nedenfor - virker såmænd udmærket, men efter mange måneder bliver listen umådelig lang og derfor Ikke særlig brugbar.

Mit ønske er derfor, at kunne udskrive månedsvis ved, at vælge en måned af gangen og hvis der er mere end én side, skal næste side udskrives igen med række 1 til 13 som top.

 I arket – kolonne C (14 til 725) er formateret som dd-mmm.

Cellerne bliver automatisk fyldt ud med datoen via VBA.

Håber nogen i forummet vil hjælpe mig? Har gennemgået de mange forslag på udskrifter sidste par år. Desværre var der ingen med lige netop min problemstilling.

Vedhæfter lige programmet hvor 95% af VBA delene er opdateret.

---------------------------------------------------------------------------------------------------------------------

Sub Udskriv()

'

' Udskriv Makro

' Makro indspillet 19-10-2002 af BJ

' Makro ændret    26-10-2012 af BJ

'

Sheets("Kskl").Select

    Range("E13").Select

    Selection.End(xlDown).Select

    ActiveCell.Range("A1:N1").Select

    Range(Selection, Cells(1)).Select

    With ActiveSheet.PageSetup

        .Orientation = xlLandscape

        .BlackAndWhite = False

        .Zoom = False

        .FitToPagesWide = 1

        .FitToPagesTall = False

        .PrintErrors = xlPrintErrorsDisplayed

    End With

' Selection.PrintOut Copies:=1, Collate:=True (er i øjeblikket sat til ikke aktiv-Test)

    Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

    Range("E14").Select

End Sub