Hjælp til at ændre kode til MAG

Jeg har et excel ark (med nedenstående makrokode)lavet på pc som virker fint.Arket skal også kunne afvikles på en mag.Er der nogle der ved hvordan man ændre sidste del af koden så den ikke udskriver PDF over Cute PDF writer men over den mulighed der er på en MAG (hvor man kan vælge det direkte fra udskriv menuen)
Sub Makro8()
Application.ScreenUpdating = False
    Set aktivark = ActiveWorkbook.ActiveSheet
    myfilename = Range("B2").Value
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs "C:\Data\Christian\Netdesign\timesedler\2008\" & myfilename & ".xls"
'    ActiveWorkbook.SaveAs myfilename & ".xls"
    Application.ActivePrinter = "CutePDF Writer on CPW2:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer på CPW2:", Collate:=True
    ActiveWorkbook.Close
    aktivark.Select
    Application.ScreenUpdating = True
End Sub

Mvh
petert