home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW09_S3.LSS < prev    next >
Text File  |  1996-07-10  |  1KB  |  29 lines
  1. '//----------------------------------------------------
  2. '// Script to print current page
  3. '//----------------------------------------------------
  4. ' When this script runs it opens a dialog box that
  5. ' prompts the user to indicate whether 
  6. ' the current page should be printed. 
  7. ' It also demonstrates how to use the LSCONST.LSS 
  8. ' file that contains a number of predefined constants. 
  9. ' For example, this file contains such constants 
  10. ' as MB_OKCANCEL and IDOK. This file is provied by 
  11. ' Lotus as part of LotusScript.
  12. ' To make use of LSCONST.LSS, include it in 
  13. ' the Options section of the script.
  14. Use "lsconst"
  15.  
  16. Sub PrintCurrentPage()
  17.     Dim PrintRetVal As Integer
  18. ' Use the LotusScript MessageBox function to create a
  19. ' dialog box with a prompt for user feedback.
  20.     PrintRetVal = Messagebox("Would you like to print this page?", MB_OKCANCEL, "Print")
  21. ' Assess the user response to the message box; if the user
  22. ' clicks OK, then print the current page.
  23.     If(PrintRetVal = IDOK) Then
  24.         CurrentDocument.Print CurrentPage.Number,_
  25.         CurrentPage.Number, 1
  26.     End If
  27.     Selection.ClearSelection
  28. End Sub
  29.