FIX: Wingdings/Webdings/FoxPrint Not Printing from Windows 98

MORE INFORMATION

The following code creates an array that holds all of the installed fonts. The name of the font and an example of how the font looks prints on the printer and displays on the Visual FoxPro desktop. This program runs under any version of FoxPro.

Steps to Reproduce Behavior

Run the following code:

      CLEAR
      AFONT(aFonts)
      SET PRINTER ON
      SET DEVICE TO PRINTER

      FOR i = 1 TO ALEN(aFonts)
          ?aFonts(i)
          ??chr(9) + aFonts(i) FONT aFonts(i)
      ENDFOR

      SET PRINTER TO
      SET PRINTER OFF
      SET DEVICE TO SCREEN
				

NOTE: The Wingdings font example generally prints in the Times New Roman font instead of in the Wingdings font. Both the Wingdings and Webdings font display correctly on the screen.