Printing Sheets in PDF

CutePDF does not accept a filename in code - you have to enter it from the keyboard.
Consequently, when I want to specify the filename programmatically I use PDF Creator (a free version is available).
Have a look at my reply to the following post - it contains links to a PDF Creator solution for you:
http://www.mrexcel.com/forum/showthread.php?t=402856
(however, you will find an example of the PDF Creator code in the pos)

Thanks for your sharing...

After my code as below, still I'm getting a dialog box to save manually, will you Pls. clarify on this

Sub PRINT_PDF()
Application.ScreenUpdating = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PDFCreator on PDFCreator:", Collate:=True
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Filename = "G:\Report Copy\" & "Daily Report as on" & Format(Now, "-dd-mm-yyyy hh-mm-ss") & ".pdf"
SendKeys Filename & "{ENTER}", False
MsgBox "Report Copy has been Saved !!!"
Application.ScreenUpdating = True
End Sub

This is because you have only changed one line in your code.
There are several more lines that you need including those (as shown below) that allow you to specify the filename:
See the 'AutosaveDirectory' and 'AutosaveFilename'.

Re: Printing Sheets in PDF; Solved

Hi, Derek,
I've added your code and working fine, Thanks.
For viewer reference I've attached the code as below,

Sub PRINTTOPDF()
Dim pdfjob As Object
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = "Daily Report as on " & Date & ".pdf"
'///I've changed the below code to my requirement///
'sPDFPath = ActiveWorkbook.Path & Application.PathSeparator
sPDFPath = "G:\Report Copy\"
'Check if worksheet is empty and exit if so
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With
'Print the document to PDF
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
'Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
MsgBox ("The PDF has been successfully created as " & sPDFName)
pdfjob.cClose
Set pdfjob = Nothing
Set pdfjob = Nothing
End Sub

Thanks for your support.