Jump to content

Imprimir diferentes hojas con PDF


Recommended Posts

Buenas, me encuentro con el siguiente inconveniente: Tengo un archivo con diferentes hojas, las cuales quiero imprimir en PDF es un orden diferente, por lo cual cree un codigo para ello, donde puedo definir el orden de impresion segun se requiera, y asi mismo, seleccionar el rango de impresion. El problema que cuentro que es quiero que se genere un solo archivo PDF, con el codigo que desarrolle imprime N cantidad de archivos en PDF.

Sub Imprimir()

Dim Hoja As String

Dim Rango As String

Dim i As Integer

Application.Dialogs(xlDialogPrinterSetup).Show

For i = 1 To 5

Hoja = Worksheets("Print").Range("A" & i)

Rango = Worksheets("Print").Range("B" & i)

Worksheets(Hoja).PageSetup.PrintArea = Rango

Worksheets(Hoja).PrintOut copies:=1

Next i

End Sub

[/b]
Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy