Prøv om der er noget du kan bruge?
Hvis du sætter sideskift i arket så de passer med listerne, kan du vælge hvilken side du vil udskrive:
Public Sub PrintSide1()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub
Public Sub PrintSide2()
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True
End Sub
Public Sub PrintSide3()
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate:=True
End Sub
Public Sub PrintSide4()
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate:=True
End Sub
Public Sub PrintSide5()
ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate:=True
End Sub
Public Sub PrintSide6()
ActiveWindow.SelectedSheets.PrintOut From:=6, To:=6, Copies:=1, Collate:=True
End Sub
Her under udskrives navngivet område:
Public Sub PrintLagerliste55()
ActiveSheet.PageSetup.PrintArea = "Lagerliste55"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Public Sub listeLagerliste1()
ActiveSheet.PageSetup.PrintArea = "Lagerliste1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Public Sub PrintLagerliste2()
ActiveSheet.PageSetup.PrintArea = "Lagerliste1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Public Sub PrintLagerliste3()
ActiveSheet.PageSetup.PrintArea = "Lagerliste3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Public Sub PrintLagerliste4()
ActiveSheet.PageSetup.PrintArea = "Lagerliste4"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Public Sub PrintLagerliste5()
ActiveSheet.PageSetup.PrintArea = "Lagerliste5"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Public Sub PrintLagerliste6()
ActiveSheet.PageSetup.PrintArea = "Lagerliste6"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Her under slettes alt I område "Lagerliste55"
Sub SletLagerliste55()
home = ActiveCell.Address
homeArk = ActiveSheet.Name
'
Application.Goto Reference:="Lagerliste55"
Selection.ClearContents
'
Sheets(homeArk).Select
Range(home).Select
End Sub
