We found Bullzip PDF Writer which is totally free and has all the necessary options. Fast as a lightning too.
This improves the file write wait by a good bit too:
On Error Resume Next
chk = False
Do
Rhino.Sleep 100 '— not sure if this is long enough to not fail. to be tested…
FSO.MoveFile DefName, TargetName
If FSO.FileExists(TargetName) Then chk = True
Loop While chk = False
On Error GoTo 0