Microsoft Office Forums - View Single Post - [Solved] How to center a page horizontally?

b0x4it · 11-11-2013, 10:08 AM

Quote:

Originally Posted by macropod

Possibly something like:

Code:

Sub Test()
Dim lZoom As Long
With ActiveWindow
  'Ignore any errors
  On Error Resume Next
  'Reduce flickering while changing settings
  .Visible = False
  'Switch to a single view pane
  .View.SplitSpecial = wdPaneNone
  'Switch to Print Preview mode
  .View.Type = wdPrintView
  With .ActivePane.View.Zoom
    'Set for a 1-page view
    .PageColumns = 1
    'Initialize for best fit
    .PageFit = wdPageFitBestFit
    'Get the full-screen zoom
    lZoom = .Percentage
    'Set zoom % to 250% min
    If .Percentage < 250 Then .Percentage = 250
  End With
  'Center the page
  .ActivePane.HorizontalPercentScrolled = (250 - lZoom) / 5
  'Restore the window now that we're finished
  .Visible = True
End With
End Sub

This also works for me but just on my laptop with 15.1" monitor. It does nothing on my 27" monitor. How can I relate this code to the size of the screen instead of a fix number (250% in this code)?