Crear un PDF con varias hojas de impresiones consecutivas armada con Macros VBA

[Bluebox_ar]

Hola! Necesito que una Macro me haga lo del título: Imprima de forma consecutiva una hoja de datos donde una celda cambia la numeración y me arme UN SOLO PDF con todas las hojas mandadas a imprimir. Ya tengo armada una Macro que imprime en forma consecutiva, pero tengo dos inconvenientes: 

1) Si mando a una impresora común me sale todas hojas impresas en una sola cara. Se desperdicia el doble de hojas.

2) Si mando en PDF para luego unir todos los archivos separados con algun otro software, tengo que darle imprimir a cada una de las impresiones y es muy tedioso.

Por eso es que necesito una Macro donde me cree un solo PDF con todas las impresiones que se manda consecutivamente. 

Espero que puedan ayudarme, muchas gracias por su tiempo!!!  

 

[Haplox]

Hace 23 horas, Bluebox_ar dijo:

Espero que puedan ayudarme, muchas gracias por su tiempo!!!  

¿Y si subes tu archivo de ejemplo, como además mandan las normas, para que veamos qué necesitas hacer realmente? Dependiendo se pueden usar varios métodos...

[Bluebox_ar]

En 27/7/2022 at 13:08 , Haplox dijo:

Y si subes tu archivo de ejemplo

Sub Imprimir_Consecutivos()
Dim Desde, Hasta
Dim Activa As Range

Dim NombreArchivo As String
Dim RutaArchivo As String
Dim hojas() As Variant
Dim Hoja_Excel As Worksheet
    
Set Activa = Range("L1")
Desde = InputBox("Ingrese el numero inicial", "Desde")
Hasta = InputBox("Ingrese el numero Final", "Hasta")

If IsNumeric(Desde) = False Then
MsgBox "NO INGRESÓ UN VALOR NUMERICO", vbCritical
Exit Sub
End If

If IsNumeric(Hasta) = False Then
MsgBox "NO INGRESÓ UN VALOR NUMERICO", vbCritical
Exit Sub
End If

If Desde > Hasta Then
MsgBox "El numero Inicial es mayor que el numero Final", vbCritical
Exit Sub
End If

On Error GoTo Error

For i = Desde To Hasta
    'Cambia la celda con el valor de i
    Activa.Value = i
    
    Set Hoja_Excel = ThisWorkbook.Sheets("Llenado")
    'Set Hoja_Excel = Worksheets("Llenado").Range(Selection, Selection.End(xlDown))
    'Set Hoja_Excel = Worksheets("Llenado").Range("B4:B6")
    
    'Poblamos el array de hojas para el pdf
     hojas = Array("Llenado", "Lavadero")

    'Imprime la Hoja Activa en impresora predeterminada
    'ActiveSheet.PrintOut copies:=Copia
Next i

'Creamos el PDF
    NombreArchivo = "Bitacora - " & ThisWorkbook.Name
    RutaArchivo = ThisWorkbook.Path & "\" & NombreArchivo
            
    'selecciona la hojas del array
    ThisWorkbook.Sheets("Llenado").Select
    
    'generar pdf de las hojas seleccionadas
    ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo
    
    'Desactivamos la selección múltiple
    'ThisWorkbook.Sheets(1).Select
    
Error:
MsgBox Error.Description
Exit Sub
End Sub

Inserté el codigo porque no puedo adjuntar el archivo al msj. Supongo que es por seguridad.

Intenté varias cosas y por eso hay lineas comentadas...

La idea era cargar en un Array o Vector todas las hojas que quiero imprimir, con la única diferencia que entre ellas tienen una celda con numeración diferente.

Luego convertir mandar ese Array en un PDF, ya teniendo 1 archivo con todas las hojas que necesitamos imprimir mandarlo a la impresora para que salga en doble faz.