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