Macro works fine until documents closed

[a_gunslinger]

Created a basic time saving macro assigned to Personal.xlbs that prints spreasheets I receive in emails to PDF. Works great right after I create the macro and run it on some open spreadsheets but after I close Excel and re-open it Macro no longer works. Used thes basic steps:

Open a target spreadsheet.
Developer > Record Macro >
Give it a name and Shortcut Key
Sore in > Personal.xlbs
Record Macro: File > Print > Pritner = PDF > Print All Pages > Print > Choose filename and target save location
Stop Recording

Open some othe spreadsheets and it works great.

Close Excel and re-open it and it no longer works. Macro sends it directly to local printer instead of PDF as I chose in the Macro Record steps.

Any guideance appreciated ;^)

[MaczaQ]

I think it is because you didn't set printer to PDF in your macro (or that property wasn't set by macro recorder).
Make sure your default printer is PDF or implement correct printer choose.

P.s. attach you workbook, then we will try to help you.

Best Regards

[a_gunslinger]

I think it is because you didn't set printer to PDF in your macro (or that property wasn't set by macro recorder).
Make sure your default printer is PDF or implement correct printer choose.

P.s. attach you workbook, then we will try to help you.

Best Regards

Thanks for the reply. Wasnt sure which workbook is needed for posting (worbook or personal.xlsb). Wont let me attach the .xlsb one ....

[a_gunslinger]

Correct. When I set PDF as default printer it worked. Would prefer to not have to change default printer to PDF each time, then reset back to notrmal default printer. Possible tweak?

[MaczaQ]

if that attached workbook contain confidental data consider to delete it immediatly.

try to use this part of code for set printer

Please Login or Register  to view this content.

Best Regards
MaczaQ

[a_gunslinger]

Macro now shows:
Sub SchedulesPDF()
'
' SchedulesPDF Macro
'
' Keyboard Shortcut: Ctrl+q
'
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Application.ActivePrinter = "Adobe PDF Converter"
End Sub

But throws this error: Run-time error 1004: Method "ActivePrinter" of object "_Application" failed

[MaczaQ]

first set printer, then printOut

Please Login or Register  to view this content.

[shg]

gunslinger,

Please take a few minutes to read the forum rules, and then edit your post to add CODE tags.

Thanks.

[a_gunslinger]

Still throws same error. Wonder if I dont have the correctn name for the Adobe PDF Printer though Ive tried both "PDFCreator" and "Adobe PDF Converter" as it appears in pritner properties.

I will read the forum rules now. Sorry about thta.