Impresión en red, mediante VBA (Excel 2013

Mediante el siguiente código, enviaba un trabajo a dos impresoras a la vez. Una copia a la Impresora Local (predeterminada) y otra a una impresora compartida en la red.
Todo funcionaba muy bien, hasta que instalé Office 2013. Ahora no responde, el código se detiene donde dice: Application.ActivePrinter = "\\Carga04\HP LaserJet Professional P 1102w en Ne03:"
Tengo Windows 7 Professional SP1 y Office 2013, ambos de 32 bits.
Intenté grabar una macro para saber cómo lo interpreta el nuevo Office, pero al reproducirlo sólo lo envía dos veces a la impresora local y no menciona a la otra que está en la red.
Sub print1y2()
Dim ImpresoraAnterior As String
Dim ruta As String
Dim archivo As String
With Application
ImpresoraAnterior = .ActivePrinter
ruta = ThisWorkbook.Path
archivo = "cancel saldo.xlsm"
Application.ActivePrinter = "\\Carga04\HP LaserJet Professional P 1102w en Ne03:"
Worksheets("RECIBO").PrintOut 1, 1
If .ActivePrinter <> ImpresoraAnterior Then .ActivePrinter = ImpresoraAnterior
Worksheets("RECIBO").PrintOut 1, 1
End With
End Sub
Agradezco desde ya la ayuda que pueda recibir.
Carlos