View Single Post
 
Old 02-01-2022, 02:50 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,176
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

I assume that would be due to the code using ranges and not selection. What happens if you add the bold line in the position as shown
Code:
oStory.HighlightColorIndex = wdBrightGreen
oStory.Select
Application.PrintOut Range:=wdPrintCurrentPage
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote