Hola, Gracias por responder,, es una macro muy simple,, no ahorra mucho pero como en el trabajo tenemos varias impresoras para no ir cambiando de la Predeterminada a la pdfcreator me cree esta,
Código:
Sub exporttopdf()
'
'
'
'
Application.ActivePrinter = "PDFCreator en Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator en Ne02:"
End Sub