PRB: Font Dialog Box Lists Fonts Not Supported by Printer

MORE INFORMATION

Step-By-Step Example

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a Common Dialog control to Form1, and set its Name property to CMDialog.
3. Add the following to the general declarations section of Form1:

      ' In Visual Basic 4.0 the constants would be:
      Const vbCFNoSimulations = &H1000&
      Const vbCFPrinterFonts = &H2&
   
      ' In Visual Basic 3.0 the name of the constants would be:
      Const CF_NoSimulations = &H1000&
      Const CF_PrinterFonts = &H2&
   
      Either set of constant names would work as long as you are consistent in
      your usage. The rest of this article uses the version 4.0 constants.
   						

4. Add the following to the Form_Load event procedure:

      Private Sub Form_Load()
         ' The following line can be written either like this:
         CMDialog.Flags = vbCFNoSimulations Or vbCFPrinterFonts
   
         ' or like this:
         ' CMDialog.Flags = vbCFNoSimulations + vbCFPrinterFonts
   
         CMDialog.Action = 4
      End Sub
   						

5. Start the program by pressing the F5 key or by clicking Start on the Run menu.