Sub ExportWordPDF()
Dim wdApp As Object
Dim wd As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wd = wdApp.Documents.Open("C:\frame.doc")
wdApp.Visible = True
[B]Range("B2:M69").CopyPicture xlScreen, xlPicture
wd.Range.Paste[/B]
wd.SaveAs ("C:\Reporting\" & "\" & Range("P2").Value)
wdApp.ActivePrinter = "PDFCreator"
wdApp.PrintOut
wdApp.Quit
Set wdApp = Nothing
Set wd = Nothing
End Sub