Solved: Programatically Print

[leeweaver]

I have a project I'm working on and would like to have a single click filter my worksheet, hide rows, set the print area and print the report. I have all of the above done except for print the report.

I need to be able to select the printer and print programatically.

[Bob Phillips]

Activesheet.Printout


I avoid setting the printer programmatically, far better to let the user select, they are used to doing that.

[leeweaver]

In this case I am the user. I need to generate a PDF report every week. and want to automate it. I want to automatically select the "PDF" printer.

[leeweaver]

Thanks for the help. but I figured it out using the macro record function.

[leeweaver]

Application.ActivePrinter = "Adobe PDF on Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne04:", Collate:=True

[mdmackillop]

Always useful to return things as they were
tmp = Application.ActivePrinter
Application.ActivePrinter = "Adobe PDF on Ne04:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne04:", Collate:=True
Application.ActivePrinter = tmp