Se a impressora em questão for a impressora padrao.

Basta usar essa linha de codigo

Sheets("Plan1").printout

Vai imprimir a plan1 direto na impressora padrão.

Como o Marcelo disse, se estiver como impressora Padrão é só utilizar o comando qu ele passou, mas se tem várias impressoras e quer enviar para uma delas, primeiro tem de saber o endereço da mesma, veja nas configurações, somente pelo nome que colocam não será possível, por exemplo, aqui no serviço tem mais de uma e estão em Rede e o endereço de uma delas é : "\sjpsvr069impressora_143" este é o que tem de estar na rotina, se eu colocar somente "impressora_143" que é o nome vai dar erro por não localizar, então verifique e ajusten a rotina abaixo :

Sub Imprimir_Qual_Impressora()
    Dim myprinter As String
    Dim printer_name As String

    'Ajuste o endereço da impressora que quer enviar
    printer_name = "\sjpsvr069impressora_143"

    myprinter = Application.ActivePrinter
    
    ActiveSheet.PrintOut Preview:=False, ActivePrinter:=printer_name, PrintToFile:=True, PrToFileName:=PSFileName
    
    Application.ActivePrinter = myprinter
    
End Sub

[]s

Muito obrigado mesmo de verdade!!!