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]
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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