I have a module that will create a folder and then print a spreadsheet into pdf. (See Code below)
It does not work, and the following msg pop up.
"When you create a postscript file you have to send the host fonts. Please go to the printer properties, "'Adobe PDF Settings' page and turn OFF The options 'Do not send fonts to Distiller'."
I tried to turn off the "Do not send fonts to Distiller", and the modules went through. Nonetheless, I am not able to open the file. It said the file is corrupted.
Any idea how I can fix this?
Sub PrintToFile(strPath As String, strFileName As String)
MkDir (strPath & strFileName)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, PrintToFile:=True, _
prtofilename:=strPath & strFileName & "\" & strFileName & ".pdf"