Macro para alternar entre una impresora y otra

Visita:

Cursos de Excel y Macros

Por Dante Amor

Para mostrar las impresoras:

Application. Dialogs(xlDialogPrinterSetup).Show

Revisa la siguiente respuesta para establecer una impresora:

Como establercer una impresora desde VBA

En tu ejemplo sería algo como esto:

Sub macro1()
   if activesheet.name = "Hoja1" then
     Application.ActivePrinter = "impresora1"
   elseif activesheet.name = "Hoja2" then
    Application.ActivePrinter = "impresora2"
    end if
    '
End Sub

Recomendaciones:

Curso de macros. Declarar variables en vba excel. - YouTube

Sal u dos

Otro ejemplo como esto:

Sub macro1()
    Dim impresora1 As String
    Dim impresora2 As String
    ' Establecer los nombres de las impresoras
    impresora1 = "Nombre de la impresora 1"
    impresora2 = "Nombre de la impresora 2"
    ' Obtener la hoja activa
    Dim hoja As Worksheet
    Set hoja = ActiveSheet
    ' Comprobar la hoja activa y seleccionar la impresora correspondiente
    If hoja.Name = "Hoja1" Then
        Application.ActivePrinter = impresora1
    ElseIf hoja.Name = "Hoja2" Then
        Application.ActivePrinter = impresora2
    Else
        ' Si la hoja activa no es ninguna de las dos, imprimir con la impresora predeterminada
        Application.ActivePrinter = Application.Printers(1).DeviceName
    End If
    ' Imprimir el rango seleccionado en la hoja activa
    hoja.PrintOut
End Sub