Visual Basic para Aplicaciones - Error 1004 con ActivePrinter

Estoy empezando con el mundillo del Excel y Visual Basic 6.

Justo lo primero es conseguir una impresora PDF que no es la impresora predeterminadad de Windows XP una hoja de cálculo, pero...

Public Sub PorDondeImprimirExcel()
Dim appExcel As excel.Application

Application.ActivePrinter = "eDocPrinter PDF Pro en LPT1:"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\SILUETA\q_coordina_l_01 en Ne04:", Collate:=True

End Sub

Yan en Application.ActivePrinter = "eDoc...." me aparece el error 1004.
Lo curioso, es que lo he copiado de la macro que he realizado en la Hoja de Cálculo, y desde allí si me funciona.

Help!

Gracias de antemano.

Juanjo

tengo esta formula pero visual basic me marca un error pero no se cual sea, mi profesora me dio esta formula y no dijo que investigaramos porfa ayudenme
Cells.Find(what:=TextBox1, after:=ActiveCell, Lo In:=x1Formulas, Lo At:=x1Part, SearchOrder:=x1ByRows, SearchDirection:=x1Next, MatchCase:=False).Activate
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell