Copying a Pre-Defined Print Area

[Helpme21]

Hello-

I am using Office 2010.

I currently have an excel document with 40+ tabs. Each tab has already been defined with a print area. I am trying to copy the contents of the print area into a Word document to make it look more professional. I already have a excel Macro to run through each tab and copy a large data set and paste it into the word document. I need help to copy ONLY the data within the print area that is already defined in each tab. The code I currently have is shown below.

For i = 0 To j
Worksheets(names(i)).Select
Range("A1:G116").Select '<-- Need To Replace This Line So It Only Selects The Data In The Print Area of That Tab'
Selection.Copy
appWD.Selection.Paste
appWD.Selection.InsertBreak Type:=wdPageBreak
Next i

Is this even possible? I have been searching a lot for this. As help would be appreciated.

Thanks in advance!

 

[VoG]

Untested but try

ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Select

 

[Helpme21]

It Works...Thank You!