Did you analyse the code carefully ?

[VBA]
Private Sub SaveAsPDF_Click()
c00="G:\OF\"
c01= "example"

With CreateObject("PDFCreator.clsPDFCreator")
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = c00
.cOption("AutosaveFilename") = c01 & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache

thisworkbook.Sheets(1).PrintOut 1, "PDFCreator"

Do Until .cCountOfPrintjobs = 1
DoEvents
Loop
.cPrinterStop = False
Do Until .cCountOfPrintjobs = 0
DoEvents
Loop
.cClose
End With
End Sub
[/VBA]