Code to make a printscreen of the acutal open form to print the content an a A4 square page

I would like to have a general code, that allows me to print the aktual opened form and - if necessary - reduces the size to A4 square (landscape).