Almost Back to Paradise: Printing report in MS Word

[Rambo]

Hi,

Thanks to some help from Duane Hookem and Phillip Windell I was able to
figure out how to preview reports based on specific criteria using the
following code

Private Sub cmdPrintRecord_Click()
Dim strReportName As String
Dim strCriteria As String

strReportName = "rptProgress"
strCriteria = "[EmployeeID] = '" & Me![EmployeeID] & "' and " & _
"[dtmDateofProgress] = #" & Me![dtmDateofProgress] & "#"

DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End Sub

Now I am trying to work it so that you have the option of opening the
report in word after previewing it...Does anyone have any suggestions?

Thanks in advance.

Sincerely,
Rambo