Hata veriyor demişsiniz, ama hangi satırda ve ne hatarsı verdiğini belirtmemişsiniz.
Alttaki kodlar sayesinde default printer ayarınızdan etkilenmeden "Printer_Adi" olarak belirttiğiniz printer ile çıktı alabilisiniz.

Sub Printer_Degister()

    Dim Varsayilan_Printer As String

    Varsayilan_Printer = Application.ActivePrinter

    On Error Resume Next

    Application.ActivePrinter = "Printer_Adi"

    ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True

    Application.ActivePrinter = Varsayilan_Printer

End Sub