One click printing with custom print setting

Define custom print setting and print button with VBA. I print a lot that I want on a single landscape page. I got annoyed by having to routinely change the print settings...so now I hit a button and the sheet it auto sized to 1 page and printed!