home *** CD-ROM | disk | FTP | other *** search
/ Passport / passport.iso / pc / passport / notepad.dxr / Graph_10.ls < prev    next >
Encoding:
Text File  |  1998-01-26  |  570 b   |  17 lines
  1. on mouseUp
  2.   set pg to string(the frame - marker(0) + 1)
  3.   if the frame >= label("Big") then
  4.     set the text of field ("Pag" & pg) to the text of field ("Pag" & pg & "Big")
  5.   end if
  6.   set doc to new(xtra("PrintOMatic"))
  7.   if objectp(doc) then
  8.     setLandscapeMode(doc, 0)
  9.     setProgressMsg(doc, "Stampa in corso...")
  10.     setDocumentName(doc, "Passport - Bloc Notes")
  11.     append(doc, "BLOC NOTES: " & the text of field "NomeFile" && "- pagina " & the text of field "pag" & RETURN & RETURN)
  12.     append(doc, field ("Pag" & pg))
  13.     print(doc)
  14.   end if
  15.   set doc to 0
  16. end
  17.