home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / network / ogmess / prnmsg.txt < prev    next >
Text File  |  1995-02-27  |  681b  |  38 lines
  1. Sub cancelcmd_Click ()
  2. Unload prnmsg
  3. End Sub
  4.  
  5. Sub FntNames_Click ()
  6. If fntnames.listindex <> -1 Then
  7.     prnmsg.fntnames.text = prnmsg.fntnames.list(prnmsg.fntnames.listindex)
  8. End If
  9.  
  10. size$ = fntsize.text
  11. fnt$ = fntnames.text
  12. Call disp_sample(fnt$, size$)
  13.  
  14. End Sub
  15.  
  16. Sub FntSize_Click ()
  17. If fntsize.listindex <> -1 Then
  18.     fntsize.text = fntsize.list(fntsize.listindex)
  19. End If
  20.  
  21. size$ = fntsize.text
  22. fnt$ = fntnames.text
  23.  
  24. Call disp_sample(fnt$, size$)
  25.  
  26. End Sub
  27.  
  28. Sub prntcmd_Click ()
  29. printer.fontname = fntnames.text
  30. printer.fontsize = Val(fntsize.text)
  31. prnstat.Show
  32. printer.Print printstring
  33. printer.EndDoc
  34. Unload prnstat
  35. Unload prnmsg
  36. End Sub
  37.  
  38.