Saving active sheet to PDF - Macro

Hi,

I have made a macro that saves to PDF. The only problem is it saves the whole document to a PDF.

I'm only wanting to save the active sheet. So just press, it saves as the current location, file name etc.

Any help would be appreciated.

SolidworksApi macros