This is what I have so far but Its not working.
There is a 2 seconds but it does not automatically kill the preview.


Sub Margins()
With Worksheets("Sheet2").PageSetup
    .Zoom = 77
    .CenterHeader = "Matrix APRIL 2019"
    .CenterFooter = "Page &P of &N"
    .HeaderMargin = Application.InchesToPoints(0.03)
    .FooterMargin = Application.InchesToPoints(0.03)
    .BottomMargin = Application.InchesToPoints(0)      'Set the bottom margin to .5 inches
    .LeftMargin = Application.InchesToPoints(0)     'Set the left margin to 3/4 of inch
    .RightMargin = Application.InchesToPoints(0.25)
    .TopMargin = Application.InchesToPoints(0.5)
    .Orientation = xlPortrait     'Change this constant to xlLandscape to print in landscape
    .Order = xlDownThenOver    'Controls how pages are numbered and printed out
End With
Application.OnTime Now + TimeValue("00:00:02"), "KillPreview"
With Worksheets("Sheet2").PrintPreview
SendKeys ("{ESC}")
End With