Imprimir nombre libro + nombre hoja

hola (...), ????? (vaya con los servidores faltos de sincronia) :-((

prueba con algo +/- como lo siguiente (xl2000 en adelante):

Sub Hoja_PDF()
Dim Ruta As String, Libro As String, Hoja As String
Ruta = "c:uta general a los pdf\" ' <= pon aqui la ruta correcta: OJO
With ActiveWorkbook
LIbro = Left(.Name, Instr(.Name,".xls") - 1)
End With
With ActiveSheet
Hoja = .Name
.PrintOut Copies:=1, _
ActivePrinter:="adobe pdf en ne00:", Collate:=True, PrintToFile:=True, _
PrToFileName:=Ruta & Libro & " - " & Hoja & ".pdf"
End With
End Sub

solo asegurate de en cual puerto "escribe" la impresora
y probablemente sera necesario conocer cual es la version e idioma de excel
-?-

saludos,
hector.

El problema es al convertir la hoja de excel al archivo pdf, te recomiendo
que selecciones otra impresora
sino echa un vistazo en archivo Area->Configurar pagina

"Teletreks" escribió en el mensaje
news:

Hola a todos y gracias por la atención prestada,

Mi problema es el siguiente: por operativa interna, nuestra impresora por
defecto es adobe pdf (se genera un archivo PDF que se almacena en una
carpeta
de PDFs), el problema lo tengo cuando imprimo una hoja de un libro (por
defecto se guarda con el nombre del libro excel) y después imprimo otra
hoja
de ese mismo libro (ya que se asigna el mismo nombre al archivo) lo que me
obliga a retocar manualmente el nombre para que se machaque. Es posible
generar un pequeño código que estuviera disponible en el libro de macros
personal para general archivos con el nombre:
"nombrelibro - nombrehoja"?

gracias y salduos a todos.

Gracias Hector, tomo nota y le doy un par de vueltas, a ver si lo consigo.

Saludos,

"Héctor Miguel" escribió:

hola (...), ????? (vaya con los servidores faltos de sincronia) :-((

prueba con algo +/- como lo siguiente (xl2000 en adelante):

Sub Hoja_PDF()
Dim Ruta As String, Libro As String, Hoja As String
Ruta = "c:uta general a los pdf\" ' <= pon aqui la ruta correcta: OJO
With ActiveWorkbook
LIbro = Left(.Name, Instr(.Name,".xls") - 1)
End With
With ActiveSheet
Hoja = .Name
.PrintOut Copies:=1, _
ActivePrinter:="adobe pdf en ne00:", Collate:=True, PrintToFile:=True, _
PrToFileName:=Ruta & Libro & " - " & Hoja & ".pdf"
End With
End Sub

solo asegurate de en cual puerto "escribe" la impresora
y probablemente sera necesario conocer cual es la version e idioma de excel
-?-

saludos,
hector.

hola (...), ????? (no se por que siguen asincronos los servidores)

Mi problema es el siguiente: por operativa interna, nuestra impresora por defecto es adobe pdf
(se genera un archivo PDF que se almacena en una carpeta de PDFs)
el problema lo tengo cuando imprimo una hoja de un libro (por defecto se guarda con el nombre del libro excel)
y despues imprimo otra hoja de ese mismo libro (ya que se asigna el mismo nombre al archivo)
lo que me obliga a retocar manualmente el nombre para que se machaque.
Es posible generar un pequeno codigo que estuviera disponible en el libro de macros personal
para general archivos con el nombre: "nombrelibro - nombrehoja"?

prueba con algo +/- como lo siguiente (xl2000 en adelante):

Sub Hoja_PDF()
Dim Ruta As String, Libro As String, Hoja As String
Ruta = "c:uta general a los pdf\" ' <= pon aqui la ruta correcta: OJO
With ActiveWorkbook
LIbro = Left(.Name, Instr(.Name,".xls") - 1)
End With
With ActiveSheet
Hoja = .Name
.PrintOut Copies:=1, _
ActivePrinter:="adobe pdf en ne00:", Collate:=True, PrintToFile:=True, _
PrToFileName:=Ruta & Libro & " - " & Hoja & ".pdf"
End With
End Sub

solo asegurate de en cual puerto "escribe" la impresora
y probablemente sera necesario conocer cual es la version e idioma de excel -?-

saludos,
hector.