home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW10_S8.LSS < prev    next >
Text File  |  1996-09-30  |  994b  |  28 lines
  1. Option Public
  2.  
  3. Sub SetViews
  4.     ' Clear any current document splits.
  5.     CurrentWindow.WinViewPrefs.ClearSplits
  6.  
  7.     ' Make the current window display seven pages left to
  8.     ' right by creating 7 columns in the window, turning off
  9.     ' draft mode, and setting the view type to multiple pages.
  10.     CurrentWindow.WinViewPrefs.NumCols = 7
  11.     CurrentWindow.WinViewPrefs.IsInDraft = False
  12.     CurrentWindow.WinViewPrefs.ViewType = &H40
  13.  
  14.     'Create a new window that will take 66% of the doc window
  15.     .ApplicationWindow.UserInterfacePrefs.VerticalSplitWindow = True
  16.     .ApplicationWindow.UserInterfacePrefs.SplitPercentage = 66
  17.  
  18.     ' Display the new window
  19.     .NewWindow
  20.  
  21.     ' Makes the new window display with the page width view by
  22.     ' turning off vertical spliting, turning off draft mode,
  23.     ' and by setting the view type to page width
  24.     .ApplicationWindow.UserInterfacePrefs.VerticalSplitWindow  = False
  25.     CurrentWindow.WinViewPrefs.IsInDraft = False
  26.     CurrentWindow.WinViewPrefs.ViewType = &H100
  27. End Sub
  28.