Sub Print_X_Report()

    ActiveSheet.PageSetup.PrintArea = ""
    
    ' Get info for left footer
    Set wbTemplate = ActiveWorkbook
    Set wsTemplate = wbTemplate.Sheets("Template")
    Set rLeftFooter = wsTemplate.Range("B60")

    ' Prepare Print-sheet
    ' Show Print-sheet
    Worksheets("Print").Visible = True
    ' Detete Print-sheet from last run
    Sheets("Print").Select
    ' Define all rows to delete
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select

    ' Copy from Report-sheet to Print-Sheet
    ' COPY template with Left Header (LH)
     AdmWb.Sheets("Report").Range("B6:BF58").Copy

    ' Hide Report-sheet
    Worksheets("Report").Visible = False

    ' Paste with parameters
    Range("B2").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    ' Set Head column for page 2
    Sheets("Print").Select
    Range("B2:B54").Select
    Selection.Copy
    Range("AE2:AE2").Select
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
    Range("AE1").Select
    Range("AE1").EntireColumn.ColumnWidth = 8.6
    Range("AF1").Select
    Range("AF1").EntireColumn.ColumnWidth = 5.6

    ' Setup print parameters
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    
    Application.PrintCommunication = True
        ActiveSheet.PageSetup.PrintArea = "$B$2:$BG$56"
    Range("B2:BG56").Select

    'Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintComments = xlPrintSheetEnd
        .PrintQuality = 600
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .FitToPagesWide = 2
        .FitToPagesTall = False
        .PrintErrors = xlPrintErrorsDisplayed
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
    End With
    
    Application.ActiveSheet.PageSetup.LeftHeader = "&""Maersk Text Office,Bold""&18Hotel Cleaning Peport"
    Application.ActiveSheet.PageSetup.CenterHeader = ""
    Application.ActiveSheet.PageSetup.RightHeader = "&""Maersk Text Office,Bold""&10&D - &T"
    Application.ActiveSheet.PageSetup.LeftFooter = "&""Maersk Text Office,Regular""&08" & rLeftFooter.Value
    Application.ActiveSheet.PageSetup.CenterFooter = ""
    Application.ActiveSheet.PageSetup.RightFooter = "&""Maersk Text Office,Regular""&10&P / &N"
        
    MsgBox "REMEMBER TO CHANGE TO COLOR PRINT"
    
    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + 10
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    Application.Wait waitTime
    ActiveSheet.PageSetup.PrintArea = ""
    
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
        
    'MsgBox ("Hej")
    ' Showe Report-sheet
    Worksheets("Report").Visible = True
    
    ' Hide Print-sheet
    Worksheets("Print").Visible = False
    ' Activate Report-sheet from last run
    Sheets("Report").Select
  
End Sub