CutePDF default name

[jsambrook]

I'm printing to PDF as part of a macro and I want to insert a default name for the file. what code do I need to do this?
thanks

 

[Joe4]

What's your code look like?
What do you want the default name to be?

 

[jsambrook]

Code looks like this

        Application.ActivePrinter = "CutePDF Writer on CPW2:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer on CPW2:", Collate:=True
    Application.ActivePrinter = "RICOH Aficio 3228C PCL 5c on Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "RICOH Aficio 3228C PCL 5c on Ne00:", Collate:=True

I want to save the filename as a combination of date and time and also a number from a cell.

thanks

 

[Joe4]

The "PrintOut" command has a "print to file" (PrToFileName) argument right after the Collate argument you used. So you should be able to add the file name functionality in to that argument.

Take a look at this example:
http://www.mrexcel.com/forum/showthread.php?t=154163

 

[jsambrook]

Thanks, looks complicated!
Do you recommend replacing the print to pdf code with the example then? Not sure I follow all the .ps part of the code?
Do I need all of it do you think?
thanks again.

 

[Joe4]

I don't have CutePDF writer here, so I am not sure. But I think you may be able to just get away with adding that single argument to the end of your Print statement. Give it a shot with a simple test first to see if it works. If it does, then you can tackle building the dynamic file name instead of using a hard-code name.

So the change to that one command may look something like this:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
    "CutePDF Writer on CPW2:", Collate:=True, PrToFileName:="C:\MyTest.pdf"