Imprimir Pdf´s en un solo archivo
Esta pregunta es para Dante Amor
Buenas tardes Dante:
Me gustaría imprimir todos los documentos en un solo archivo de PDF´s.
Esta es la macro que estamos usando pero salen las hojas por separado en lugar de hacerlo en un solo archivo.
Sub NuevoMetodoImprimir()
Imprimir 1
End Sub
Sub NuevoMetodoPDF()
Imprimir 2
End Sub
'
Sub Imprimir(salida)
strImpresoraAnterior = Application.ActivePrinter
If salida = 2 Then Application.ActivePrinter = "PDFCreator en Ne00:"
'
For j = Columns("BB").Column To Columns("BL").Column
If Cells(3, j) Then Application.Sheets("COND Y TARIF").Range(Cells(5, j)).PrintOut
Next
Application.ActivePrinter = strImpresoraAnterior
End Sub
Respuesta de Dante Amor
2
H o l a:
Prueba con la siguiente macro
'Por. Dante Amor
Sub NuevoMetodoImprimir()
Imprimir 1
End Sub
Sub NuevoMetodoPDF()
Imprimir 2
End Sub
'
Sub Imprimir(salida)
'Por.Dante Amor
If salida = 2 Then
strImpresoraAnterior = Application.ActivePrinter
Application.ActivePrinter = "PDFCreator en Ne00:"
End If
'
For j = Columns("BB").Column To Columns("BL").Column
If Cells(3, j) Then cad = cad & Cells(5, j) & ", "
Next
If cad <> "" Then
cad = Left(cad, Len(cad) - 2)
Sheets("COND Y TARIF").Range(cad).PrintOut
End If
If salida = 2 Then
Application.ActivePrinter = strImpresoraAnterior
End If
End Sub':) ':)
Buenas noches Dante:
Es genial, funciona a la perfección, tanto la impresión en PDF´s como papel.
Eres el mejor.
Te voy a pasar dos preguntas más, una de como puedo copiar los botones de las macros en otras hojas del mismo libro y dos, coger el nombre del fichero correspondiente al PDF que genere.
Agradezco de todo corazón tu ayuda.
¡Gracias!
