Visual Basic - Imprimir rango a pdf especificando nomre

Life is soft - evento anual de software empresarial
   
Vista:

Imprimir rango a pdf especificando nomre

Publicado por Alvaro (1 intervención) el 27/02/2012 18:16:34
Sub Macro1()

Application.ActivePrinter = "Impresora PDF en Ne02:"
Worksheets("portada en el mundo").Select
Worksheets("portada en el mundo").Range("A1:M40").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$40"
ActiveSheet.PrintOut Copies:=1, collate:=True
Worksheets("mapa").Select
ActiveSheet.PageSetup.Orientation = xlLandscape
Worksheets("mapa").Range("A1:BC156").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$BC$156"
ActiveSheet.PrintOut Copies:=1, collate:=True
Worksheets("Portada_Mex").Select
Worksheets("Portada_Mex").Range("A1:K45").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$45"
ActiveSheet.PrintOut Copies:=1, collate:=True
Worksheets("mapa").Select
Worksheets("mapa").Range("K1:U118").Select
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.PrintArea = "$K$1:$U$119"
ActiveSheet.PrintOut Copies:=1, collate:=True
Worksheets("Portada_USA").Select
Worksheets("Portada_USA").Range("A1:K45").Select
ActiveSheet.PageSetup.Orientation = xlLandscape
'ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$45"
ActiveSheet.PrintOut Copies:=1, collate:=True

End sub

Esta es la macro que utilizo. Mi problema es que cuando le doy a ejecutar la macro, me abre los pdfs y pone "guardar como" con el mismo nombre en todos los pdfs que abre. Por lo que me hago un lío para saber cual es cual. Querría que me dijeseis algún comando para que cada vez que me abra un pdf lo llame con un nombre distinto o si eso no es posible, me gustaría que los pdfs se abrieran según voy guardandolos por ejemplo. Se me abre uno lo guardo con el nombre que quiero y luego que se me abra el siguiente, etc..para saber lo que estoy guardando cada vez. Preferiblemente me gusta mas la primera opción

Saludos y muchísimas gracias por vuestra ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder