home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / mswindo / apps / 7638 < prev    next >
Encoding:
Text File  |  1993-01-28  |  1.6 KB  |  37 lines
  1. Newsgroups: comp.os.ms-windows.apps
  2. Path: sparky!uunet!charon.amdahl.com!pacbell.com!decwrl!pa.dec.com!engage.pko.dec.com!NCDEL.DEC.COM!ssmith
  3. From: ssmith@NCDEL.DEC.COM (Sheldon E. Smith)
  4. Subject: Re: Print all Win3.1 fonts utility?
  5. Message-ID: <1993Jan27.054144.9996@engage.pko.dec.com>
  6. Sender: newsdaemon@engage.pko.dec.com (USENET News Daemon)
  7. Organization: Digital Equipment Corporation
  8. References: <727713097snx@tixel.mv.com> <1k3cmuINN6f8@unidui.uni-duisburg.de>
  9. Date: Wed, 27 Jan 1993 04:33:28 GMT
  10. Lines: 25
  11.  
  12.  
  13. The request was made for a program to print the all the fonts in W4W.  I'd
  14. looked around in the past and didn't quickly find anything, so I wrote a simple
  15. macro myself.  I'll leave it to you to figure out how to add it.  8^)
  16.  
  17. Make a new document and run this.  Then print it.
  18.  
  19. Sub MAIN
  20. For COUNT=1 To CountFonts()    'Step through each font on the system.
  21.     NAME$=Font$(COUNT)        'Get the name first.
  22.  
  23.     Font NAME$, 18        'Change to the desired family, and
  24.     Insert "AaBcCcXxYyZz0123$*?" put in representative sample text.
  25.  
  26.     Font "Arial", 10        'Switch back to something known to be legible,
  27.     Insert " " + NAME$        'and record which family it is.
  28.     InsertPara            'Finally complete the line.
  29. Next
  30. End Sub
  31. ------------------------------------------------------------------------------
  32. Sheldon E. Smith            !Email:
  33. Digital Equipment Corporation        ! ssmith%ncdel.enet.dec@decwrl.dec.com
  34. Minneapolis, Minnesota            ! ...!decwrl!ncdel.enet.dec.com!ssmith
  35. ==============================================================================
  36.                         Vote for Picard & Riker in '96
  37.