hola, raul !
si te sirve, el siguiente procedimiento pone en el portapapeles de windows el texto contenido en una celda de alguna hoja de tu libro y cuando se muestra el dialogo "final" en el PDFCreator para la impresion, podras usar el ctrl+V para reemplazar la ruta propuesta
(solo cambia en el codigo el nombre de la hoja y la celda apropiadas y asegurate del puerto donde imprime la aplicacion <= OJO)
saludos,
hector.
- Código: Seleccionar todo
Sub Imprimir_PDFCreator()
Dim DataObj As New MSForms.DataObject
DataObj.SetText Worksheets("hoja1").Range("a1").Text
DataObj.PutInClipboard
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PDFCreator en Ne01:"
End Sub