Sorry.

replace the following lines and paste the above code in procedure 'Print_Rangespdf'

Code:
 '// Paste the data to the workbook for PDF
                .Range(strRngName).Copy rngDest