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.

 ' 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