Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Imprimir nombre libro + nombre hoja

16/02/2010 - 16:53 por Teletreks | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
17/02/2010 - 05:43 | Informe spam
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.

Preguntas similares

 

Busqueda sugerida :