imprimer un pdf une zone limitée

Bonjour,

J'imagine que cela va paraitre simple pour certains, mais je n'arrive pas à limiter le pdf au nombre de cellule souhaitée. (A1:I48)

J'ai cherché sur le forum (et ailleurs), j'ai bien trouvé un macro intéressante qui transforme tout mon fichier en pdf, mais rien qui fonctionnait concernant la limitation de cellule. Que devrais-je modifier/ajouter pour que cela fonctionne ?

Merci d'avance

Sub ToPdf()

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
nomExcel = ThisWorkbook.Name
NomPdf = Left(nomExcel, Len(nomExcel) - 4) & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = ThisWorkbook.Path
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
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