Cutepdf Writer and Excel 2003
 

Hi Everyone,

My coding so far is
Sub Print_Statement_to_PDF()
'
' Print_Statement_to_PDF Macro
' Macro recorded 3/20/2008 by Keith Smith
'

'
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", collate:=True


End Sub

running the above coding will give me a save as dialog box, where i can
select the directory.

I want to be able to apply a different file name each time it is running.

Does anyone have vba coding for Cutepdf writer that will automatically apply
the file name to the save as dialog box when you print the active sheet?


I'm using Excel 2003.


Hopefully someone out there can help me to finish of this project. :)

Thanks
Keith