Page setup macro

Hi the code below allows me to email a report copied from inside the workbook. cmd button 6 emails the report, cmd button 5 write the report. What i need, which i cant get it to do it autofit the "new" report to 1 page tall and wide. I've tried to alter the code by adding
'ActiveSheet.PageSetup
'FitToPagesWide = 1
'.FitToPagesTall = 1 .
to cmd button 5 code but it doesnt work

Please Login or Register  to view this content.

reading the post not sure if i explained it correctly