All,
Description:
I have a workbook with many macros and reports that get generated, and this one report in particular (simple chart) I need printed to PDF.
This macro is activated by clicking on a print button for this report and then it prompts them to name and save the file.
Problem:
The workbook is on the network that multiple users will work out of (at different times) so how do I get the VBA to allow these different users to print to PDF?
It works fine for me bit I've noticed the "Adobe PDF on Ne02:" is unique to each user that tries to print, my coworker is Ne04: etc.
Code that works for my machine:
-----------------------------------------------------------------------
Sub Chart()
Application.ScreenUpdating = False
Application.StatusBar = "Printing PE Review Performance Per Site to Adobe"
Sheets("Performance Report").Visible = True
Sheets("Performance Report").Select
Application.ActivePrinter = "Adobe PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne02:", Collate:=True
Sheets("Rollup Review Console").Select
Sheets("Performance Report").Visible = False
Application.ScreenUpdating = True
End Sub
-----------------------------------------------------------------------
Thanks in advance!
Description:
I have a workbook with many macros and reports that get generated, and this one report in particular (simple chart) I need printed to PDF.
This macro is activated by clicking on a print button for this report and then it prompts them to name and save the file.
Problem:
The workbook is on the network that multiple users will work out of (at different times) so how do I get the VBA to allow these different users to print to PDF?
It works fine for me bit I've noticed the "Adobe PDF on Ne02:" is unique to each user that tries to print, my coworker is Ne04: etc.
Code that works for my machine:
-----------------------------------------------------------------------
Sub Chart()
Application.ScreenUpdating = False
Application.StatusBar = "Printing PE Review Performance Per Site to Adobe"
Sheets("Performance Report").Visible = True
Sheets("Performance Report").Select
Application.ActivePrinter = "Adobe PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne02:", Collate:=True
Sheets("Rollup Review Console").Select
Sheets("Performance Report").Visible = False
Application.ScreenUpdating = True
End Sub
-----------------------------------------------------------------------
Thanks in advance!