Wrap problem with eps file

[hlngus]

What needs to be changed in the following code to enable the wrapping
of text? The only words that wrap are those with a hard carriage
return.

Dim strCurrentPrinter As String
Dim strOutputFileName As String
Dim CurrLM As Single
Dim CurrRM As Single
Dim CurrTM As Single
Dim CurrBM As Single
Dim CurrPW As Single
Dim CurrPH As Single

With ActiveDocument.PageSetup
.PaperSize = wdPaperLetter
.LeftMargin = 20
.RightMargin = 20
.TopMargin = 10
.BottomMargin = 10
.Gutter = 0
End With

'create the eps file
Application.PrintOut FileName:="", Range:=wdPrintAllDocument,
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
Collate:=True, Background:=False, PrintToFile:=True,
OutputFileName:=strOutputFileName, Append:=False

If Not m_blnIsUnAttended Then
DoEvents
End If

Pagewidth = 612 and pageheight = 792 in the settings.

Thanks for any help in the right direction.