Macro to export XLSM file to PDF without cutting off

Question

I have a macro to export my XLSM file to PDF, but when I run the code, you can barely see anything due to cut off in the PDF version.

this is my code:

Sub