PDF-tulostimen valinta

Osaisikko joku neuvoa/sanoa mikä mättää seuraavassa??

Yritän nauhoittaa koodia joka valitsee tulostimeksi PDF-tulostimen, muuttaa sen asetuksia siten että työkirjassa valittua aluetta ei tallenneta mihinkään vaan se lähetetään sähköpostitse.

Eli homma menee näin, käyttäjä painaa nappia "lähetä PDF", aiemmin nauhoitettu makro valitsee PDF-tulostimen, muuttaa valitun alueen PDF-muotoon, avaa oletussähköposti-ohjelman (käyttäjä valitsee osoitteen) ja lähettää tiedoston.

Tämä onnistuu mutta ongelmana on se että makro ei "pysy kasassa". Kun tallennan ja suljen työkirjan, ja myöhemmin avaan uudelleen, ajan makron niin se muuttaa kyllä alueen pdf-muotoon jne mutta EI avaa oletussähköpostia, vaan aikoo tallentaa tiedoston. Onko tässä makrossa jotakin vikaa tms että saisin sen pitämään nuo asetukset että se avaisi sähköpostin jne.

koodi;

Sub PDF()
'
' PDF Makro
'
'
ActiveWindow.SmallScroll Down:=18
Range("RANGE").Select
ActiveWindow.SmallScroll Down:=-51
Application.ActivePrinter = "PDF-XChange 3.0 porttiin xxxx:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,1,""PDF-XChange 3.0 porttiin xxxx:"",,,,FALSE)"
ActiveWindow.SmallScroll Down:=-3
Range("A26").Select
ActiveWindow.SmallScroll Down:=-39
Application.ActivePrinter = "\\oletustulostin porttiin xxxx:"
Range("A26").Select
End Sub