


For my own setup, I might hard-code the command to use the "cheap" paper in tray 2 of my color laser printer, rather than the ultra-bright heavyweight paper in tray 1, or the glossy photo paper in my 6-color wide-format inkjet. It's important to understand that you must have the correct print settings pre-defined and hard-coded as desired. But what about users who have multiple printers, paper trays, media, and the like.

For a user with a single printer or simple setup (a desktop inkjet printer, a nearby laser printer, a giant corporate Follow-Me to any printer spooler), such a command looks simple enough to implement. Later idiots crippled the interface with the Ribbon and its pal, the Less-Slow-Access toolbar, where you can place customized macros with icons that all look like little green dots.Īctually, the unexamined life of a "Print Current Page" command is fraught with peril. Unfortunately, I don't know which of the unlimited supply of idiots at Microsoft prevented a simple "Print Current Page" command. "s" & Selection.Information(wdActiveEndSectionNumber) StrCP = "p" & Selection.Information(wdActiveEndAdjustedPageNumber) & _ Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=CurPg, Name:="" If = wdPaneNone ThenĪ = wdNormalViewĪ = wdPrintViewĬurPg = Selection.Information(wdActiveEndPageNumber) It's the one posted by Matt Reid on May 1. On there is a more fulsome macro which worked for me.
