Imprimir nombre libro + nombre hoja

Teletreks

unread,

Feb 16, 2010, 10:53:01 AM2/16/10

to

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.

Héctor Miguel

unread,

Feb 16, 2010, 11:43:01 PM2/16/10

to

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:\ruta 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.

Ele

unread,

Feb 17, 2010, 9:47:58 AM2/17/10

to

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" <Tele...@discussions.microsoft.com> escribi� en el mensaje
news:4B461FDA-3D2A-43E3...@microsoft.com...
> 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

Teletreks

unread,

Feb 17, 2010, 10:48:01 AM2/17/10

to

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

Saludos,

"Héctor Miguel" escribió:

H�ctor Miguel

unread,

Feb 17, 2010, 12:14:52 PM2/17/10

to

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):