Have you checked the suggested option? I do not have the Adobe PDF Printer but I assume the problem is in Unicode symbols in your file. Can you try to use the same macro on a sample English model just for test? Why just not save the file to PDF using the SaveAs API rather than printing it?
Artem Taturevych, Application Engineer at Intercad (Australia)
translationXpert – add-in to translate SolidWorks models
myIntercad – an integrated tool for SolidWorks Professionals
Save4 converter PDF, circle line not clear.
Dim SwModel As ModelDoc2
Set SwModel = Application.SldWorks.ActiveDoc
FileName = SwModel.GetPathName
FileName = Left(FileName, InStr(FileName, "SwHG20592") + 9) & "\PDF\" & Split(SwModel.GetTitle, " - ")(0) & ".PDF"
Dim E As Long, W As Long
Debug.Print FileName, 0, 0, E, W
SwModel.SaveAs4 FileName, 0, 0, E, W
Have you tried to use different PDF printer like CutePDF?