Imprimer pdf word à partir d'excel

Bonjour, je sollicite votre aide pour résoudre un problème de taille sur le quelle je travail depuis vendredi dernier et qui ne fonctionne pas du tout. Je dois imprimer dans un fichier PDF une partie d'un documents word mêler à des documents excel. Il m'est impossible d'imprimer le document sélectionné avec pdfcreator. Je regarder sur tout les forums que j'ai trouvé et rien ne règle mon problème.

voici un code que j'ai trouvé sur interner et qui ferais ce dont j'ai besoin en gros:

Sub ToPdf()


Dim oWord As Word.Application
Dim oDoc As Word.document
Dim NomWord As String

VBA.Interaction.Shell ("TASKKILL /F /IM winword.exe")' Ferme Word s'il est ouvert dans le gestionnaire de tâche.

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
Set oWord = CreateObject("word.application")

oWord.Documents.Open "c:\users\jsgermain\documents\test\toto.doc"

Set oDoc = ActiveDocument
NomWord = ActiveDocument.name
NomPdf = Left(NomWord, Len(NomWord) - 4) & ".pdf"

'Si PDFCreator est ouvert, fermer l'application.
Do
Restart = False
Set pdfjob = New PDFCreator.clsPDFCreator
If pdfjob.cStart("/NoProcessingAtStartup") = False Then
'PDF Creator is already running. Kill the existing process
Shell "taskkill /im PDFCreator.exe" ', vbHide
DoEvents
Set pdfjob = Nothing
Restart = True
End If
Loop Until Restart = False

'Check if worksheet is empty and exit if so
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0
.cOption("AutosaveDirectory") = ActiveDocument.Path
.cCombineAll
.cClearCache
End With

ActivePrinter = "PDFCreator sur NE00:"
oWord.Documents.Open "c:\users\jsgermain\documents\test\toto.doc"
oWord.ActiveDocument.PrintOut copies:=1, Pages:="3-13"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop

With pdfjob
.cDefaultPrinter = DefaultPrinter
.cClearCache
.cClose
End With

Set pdfjob = Nothing

End Sub

À la fin il a imprimer mon document mais papier. Pourtant, dans word, il le fait vraiment dans un PDF. La commande "activeprinter" ne fonctionne pas. Avec la commande si-dessous, ça fonctionne dans un fichier excel mais si je remplace le début par mon documents, ça ne fonctionne pas plus.

dans excel:
Sheets("Soumission").Range("a1:h290").PrintOut copies:=1, ActivePrinter:="PDFCreator"

dans excel mais à partir du fichier word:
oWord.ActiveDocument..PrintOut copies:=1, ActivePrinter:="PDFCreator"

Je suis vraiment désespéré. Il faut que je règle cela.

merci de votre aide.