Thread: [Solved] Formatting Macro based on Zoom (PageScale)
View Single Post
 
Old 02-01-2014, 08:49 PM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
It's not entirely clear what you mean by the (+1) references. However, assuming you're wanting to increase the zoom in 1% increments, try:
Code:
Sub Formatting()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
  .Orientation = xlLandscape
  .PaperSize = xlPaperLetter  
  .Zoom = False
  .FitToPagesWide = 1
  .FitToPagesTall = False
  If .Zoom < 40 Then .Zoom = .Zoom + 1
  If .Zoom < 40 Then .Zoom = .Zoom + 1
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote