Insert Shape on Page

Without access to your document, it's impossible to understand what that code is actually doing. The coding is strange, to say the least. For example:
• you're creating a Word object, but you wouldn't do that if the macro is being run in Word;
• WordDoc.Paragraphs(WordDoc.Paragraphs.Count).Range is a convoluted way of getting WordDoc.Paragraphs.Last.Range; and
• you have a loop controlled by 'Do While recno <= recount', but recno is set to 1 and recount is 0 (it's never set, so it's always 0) and the loop will thus never execute.
One might also ask why you don't just set your line via a bottom border that's part of whatever your 'Style_RecipeTitle' Style is, instead of trying to do all this via code and shape objects.

As I said:

Without access to your document, it's impossible to understand what that code is actually doing.

And, given your latest post, we'd need to see both the full code and the Excel workbook it relates to.

Can you attach a document and workbook to a post with some representative data (delete anything sensitive)? You do this via the paperclip symbol on the 'Go Advanced' tab at the bottom of this screen.

Originally Posted by EssoExplJoe

I tried to post the relevant code for printing rather than the full code.

Fair enough, but nothing in the code has anything to do with printing, per se, notwithstanding the frequent comments in it re printing; it only concerns page formatting and content. But it also includes code for which there is no context, e.g.:
rec = Read_record(recs(recno).keyid, emsg, True, conn)
pgstyle.ParagraphHalfSpace
I'd have to wonder, too, whether what you're doing is better suited to a mailmerge, even automated, than your current approach.

Without access to at least a sample document, however, I'm just left guessing at what the code's supposed to achieve - especially when you post code for inserting a line but later say you'll insert a picture instead and what you've posted replaces detail with:
....print some more stuff