save range to PDF

Hello all,

I have this code to save a certain range to PDF.
It used to work but then I played a bit with print sizes and things like that. (don't really remember what I did , I hardly changed the range size)
Now it doesn't fill the PDFpage anymore, as it used to do.

Is there a way to reset all print page settings? Or maybe there is another reason for this...
(I noticed it is still set on A4 with normal custom margins)

 Worksheets("Off - fact").Range("A1:K47").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DirName & OfferteName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=maakpdf

Wish I could rep myself...

Change the scale back from 51% tot 100% xD