Udskrivning af sider måned vis.
I min kassekladde har jeg lavet en udskrift Macro.
Den fungerer ganske glimrende på én side.
Men det vil være bedst, hvis jeg kan få den til at udskrive månedsvis.
Det vil spare masser af papir og blæk.
Herunder kan man se min Macro på ”Sub Udskriv” og Min færdige ”Sub BJ_Gem”
Håber nogen kan udvide / ændre ”Sub Udskriv”Macroen ,så den virker efter hensigten.
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("A28:N28").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
'Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
Range("E14").Select
End Sub
-------------------------------------------------------------------------------------------------------------------------------------
Sub BJ_Gem()
' BJ_Macro
' Makro oprettet 14-01-99 af Bjarne Jensen
' Makro rettet 25-07-01 kl. 14:16 af Bjarne Jensen
' Makro rettet 19-10-12 kl. 11:16 af Bjarne Jensen
' Makro rettet 25-10-12 kl. 10:01 af Allan Thustrup Mortensen
' Genvejstast: Ctrl+Skift+G
' 1) Først Gemmes der normalt på en Nøgle (*.xlsm) og derefter som backup fil.
Sti = "E:\"
FilNavn = "Privatøkonomi " & Range("FiscalYear").Value
ActiveWorkbook.SaveAs Sti & FilNavn & ".xlsm", FileFormat:=52
' 2) Derefter gemmes der normalt på C-Drevet (*.xlsm) og derefter som backup fil.
Sti = "C:\Dokumenter\Privatøkonomi\"
ActiveWorkbook.SaveAs Sti & FilNavn & ".xlsm", FileFormat:=52
Application.Quit
End Sub