Macro to Print a PDF File (using PDF Writer) to a Network Folder

[robertguy]

Hi,

Can anybody assist me with the macro code to print a range from a worksheet e.g. A1:H24 in a PDF format to a network folder.

The scenario is as follows :-

Currently my team are printing hard copies of data e.g. the range of data A1:H24 to a network printer, however, I have now been told that the Network Printer list includes a ‘PDF Writer’ which allows you to save your data in a PDF format and save to either you own PC or a network folder.

What I require is macro code to select the ‘PDF Writer’ from a list of Network Printers and save to a network folder called P:\Procurement\Wafs using the data in cell N1 as the file name


Any assistance would be greatly appreciated.


Many thanks


Rob

[shg]

Did you try recording a macro?

[NULL_ReferenceExcept]

This one is a little tougher than it sounds. Here is the function you need:


_______________

Please Login or Register  to view this content.

______________


Use it like this:

Please Login or Register  to view this content.

__________________________


I have this code in a few workbooks that run daily, so I know it works.

[NBVC]

NRE

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[robertguy]

Null,

many thanks for your reply, however, I get the error message 'User -Defined type not defined' when I run the macro.

Any ideas ? I have also attached my workbook

Rob

[drse]

I have a similar problem. I want my macro to print to a pdf file. I tried recording the macro and this is what it suggested. However, when I try to open the pdf file I get an error message that says the file is incompatable or corrupted. Below is the code I have used for the macro, any suggestions on how to fix this problem? The code I am using is placed within a "do" loop. My intent is that the name of the pdf file would be taken from the value in the cell named "FileName2".


Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", PrToFileName:=Range("FileName2").Value

[shg]

drse,

Please take a few minutes to read the forum rules, then start your own thread with your code enclosed in code tags.

Thanks.