Printing PDF Macro

[conner82]

Hi,
I am trying to create a macro which saves my worksheet as a pdf using cute pdf to a file on my c drive with the name being defined by a cell in my worksheet.

I got this to work at my last company so it is frustrating that I cannot get it to work now. The code I used was:

Sub MakePDF()

Filename = "C:\Users\justin\Desktop\New folder\" & ActiveSheet.Range("G1").Value & ".pdf"
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 4
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Filename = "C:\Users\justin\Desktop\New folder\" & ActiveSheet.Range("G1").Value & ".pdf"
SendKeys Filename & "{ENTER}", False

End Sub

At my last job I remembered that I had to put a time delay in as some of the older computers were slow.

Also when I first used this I was using 2000 & I am not using 2010.

I can get this code to run but it will not enter the file name.

Kind Regards
Justin

 

[Derek Brown]

Hello and welcome to The Board.
CutePDF requires manual entry of the filename - instead try the free version of PDF Creator.
Have a look at #2 at Print Excel Sheet

 

[conner82]

I was begining to think i had asked a silly question as i had no replies! so cheers for the reply Derek.

I'll have to wait until Monday when I am back at work to see it that works.

Has something changed then as it used to work fine when I was running 2003 and cutepdf?

 

[Derek Brown]

I am unable to answer that question as I have never tried CutePDF with 2003.
Looking at the CutePDF web page (CutePDF :: SDK :: Custom PDF Writer), it seems to indicate in the paragraph "Custom PDF Writer with programmatic access" that it is not possible to specify the filename for use with the "CutePDF Writer".
Other links that may interest you (but they don't say which version of Excel is being used) are:
http://www.mrexcel.com/forum/excel-questions/495433-print-pdf-file.html
http://www.mrexcel.com/forum/excel-...-basic-applications-print-cutepdf-writer.html
Printing to a Cute pdf printer

 

[Derek Brown]

You may also be interested in the following:
John's Random Thoughts and Discussions: SendKeys for Office 2010 Revisited