I am using vba code for this

here is the code

Sub Create_PDF_of_NotesView()
Dim filePath As String
filePath = "C:\Documents and Settings\test_pdf\"

   On Error GoTo Hell
'        Dim app As Object
'        Dim aPresentation As Presentation
'        Dim strFilePath As String
'

'p.PrintOptions.ActivePrinter = "Adobe PDF"

         With p.PrintOptions
           .RangeType = ppPrintAll
           .NumberOfCopies = 1
           Debug.Print p.PrintOptions.ActivePrinter
           .Collate = msoTrue
           .OutputType = ppPrintOutputNotesPages
           .PrintHiddenSlides = msoTrue
           .PrintColorType = ppPrintColor
           .FitToPage = msoFalse
           .FrameSlides = msoFalse
           .ActivePrinter = "Adobe PDF"
       End With

'        p.PrintOut -1, -1, filePath, 1, msoCTrue
       p.PrintOut PrintToFile:=filePath

Regards,
Venkat