Optimere makro der udskriver jobkort

Hej
Jeg har en makro som udskriver jobkort fra et planlægningsark, det jeg gerne vil have det til er at udskrive 2 af disse jobkort til pdf og sende dem til en mail adresse ?????


ub Print_produktionsplan()


'Vælg første Sheet der skal printes
ActiveWorkbook.Sheets("Forskærer (PRO)").Select


'Vælg efterfølgende Sheets der skal printes
ActiveWorkbook.Sheets("Gulerod ØKO (PRO - PAK)").Select False
ActiveWorkbook.Sheets("Gulerod (PRO)").Select False
ActiveWorkbook.Sheets("Gulerod STAVE").Select False
ActiveWorkbook.Sheets("Gulerod knivskræl").Select False
ActiveWorkbook.Sheets("Håndpak (PAK)").Select False
ActiveWorkbook.Sheets("Lille Innotech (PAK)").Select False
ActiveWorkbook.Sheets("Hvidkål (PRO)").Select False
ActiveWorkbook.Sheets("Porre (PRO)").Select False
ActiveWorkbook.Sheets("Salatbånd (PRO)").Select False
ActiveWorkbook.Sheets("Spande (PAK)").Select False
ActiveWorkbook.Sheets("Skive (strimler) (PRO)").Select False
ActiveWorkbook.Sheets("Store Innotech (PAK)").Select False
ActiveWorkbook.Sheets("Tomat (PRO - PAK)").Select False
ActiveWorkbook.Sheets("Tern (PRO)").Select False
ActiveWorkbook.Sheets("Miele - Joker (PAK)").Select False
ActiveWorkbook.Sheets("Miele - Joker ØKO (PAK)").Select False
ActiveWorkbook.Sheets("Variovac (PAK)").Select False
ActiveWorkbook.Sheets("Simionator (PAK)").Select False


'Udskriv de valgte sheets
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


' Tilbage til "Makro"-sheet