Cambiar impresora para pdf

Hola nuevamente!
Tengo otra pelea con VBA: he creado este código para modificar la impresora activa, imprimir una hoja y volver a la impresora anterior (con ayuda de muchos foreros, claro), y me parece muy lógico el procedimiento, pero me da error de compilación... Ummmm... ¿alguna sugerencia?
Sub PDF_informe()
Dim ImpresoraAnterior As String
    With Application
        ImpresoraAnterior = .ActivePrinter
        ruta = ThisWorkbook.Path
        archivo = "nombre del archivo"
        ActivePrinter = "PDFCreator"
        Worksheets("PRESUPUESTO").PrintOut 1, 1
        If .ActivePrinter <> ImpresoraAnterior Then .ActivePrinter = ImpresoraAnterior
    End With
End Sub
... Y otra duda es como indicar el nombre del archivo, que debería tomarlo de unas celdas concretas de este mismo libro: PRINCIPAL! E5&" - "&PRINCIPAL!B6
Gracias!