macro to print 2 copies to default printer, then 1 copy to Adobe PDF printer

I have a macro written in Excel 2003(poorly written by me), that prints two copies of Sheet1 to the default printer, and one copy to Adobe PDF printer.

It works, but not like I envisioned. I have several problems

1) I can't seem to get the default printer set back to default after printing

2) The file name is picking up the name of Sheet1 rather than cell E1's value.

3) It's writing the file location on the worksheet(Sheet1)..wherever the active cell may happen to be.

4) I don't know what I'm doing.....LOL

Here is the code in the macro that I tried to write:

If anyone sees anything that I can do to fix my mess, I would appreciate the help.

Please Login or Register  to view this content.

If I can get this example sheet working correctly, I would like to adopt the code into Workbook that we currently have in use.

Thanks Kyle...I got it working, but I had to resort to copying someone else's efforts to make it work. I inserted a module and call it with my Userform cmdButton. When it writes the data to the worksheet, it also creates the pdf at the same time.

I used: http://www.mrexcel.com/forum/showpos...3&postcount=11

This works.

Edited to work for me....

Please Login or Register  to view this content.