Imprimir diferentes hojas con PDF

[darwingcamacho]

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]