I am able to copy a part of the sheet and print separately using command
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintOut
I am also able to copy and email the selection using following code
With Sheet13
'======================================= copy zone...