"Export" to ".pdf" will lose frame on the left and right side of the figure

Hello,

results= 
 Grid[{{Plot[Sin[x], {x, 1, 5}]}, {Plot[Cos[x], {x, 1, 6}]}}, 
  Frame -> All, FrameStyle -> Directive[Red, Dotted]]

will produce this

But export this figure to pdf will lose the left and right frames

Export["C:\\Users\\hello\\Downloads\\delete.pdf", results]

The export is correct on a Macintosh with version 14.1.

Okay. I will update it now.

On Windows 11 English x64, with Mathematica 14.1, there is still the problem.