Gets/Sets font substitution setting.
For the PRN_FONT_SUBST_TABLE (use font substitution table) option, you need to configure the substitution table. The table is stored under the "Device Setting" section of the printer driver properties (can be accessed from Control Panel).
Set oPrinter = CreateObject("easyPDF.Printer.6")
Set oPrintJob = oPrinter.PrintJob
Set oPDFSetting = oPrintJob.PDFSetting
oPDFSetting.FontEmbedAsType0 = True
oPDFSetting.FontEmbedding = PRN_FONT_EMBED_SUBSET
oPDFSetting.FontSubstitution = PRN_FONT_SUBST_NONE
oPrintJob.PrintOut "C:\input.doc", "C:\output.pdf"