Apoyo con problemas de impresión
Dante disculpa tanta molestia, podrías apoyar con la pregunta que te realice con problemas de impresión con la aplicación de unas macros con checkbox activex para filtrar ciertas condiciones que se plasmaron, tu ya conoces el caso, también te envié el archivo a tu correo, esto me permitira avanzar con mis labores .
De verdad necesito mucho de tu apoyo,
Respuesta de Dante Amor
1
Listo.
Preparé una macro para realizar la impresión:
En la pregunta anterior te puse los detalles.
Sub impresion()
Dim h1 As Worksheet, h2 As Worksheet
Dim u1 As Long, u2 As Long, n As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set h1 = Sheets("RENGLONES")
Set h2 = Sheets("Impresion")
h2.Cells.Clear
u1 = h1.Range("D" & Rows.Count).End(3).Row
h1.Range("A1:I" & u1).Copy
h2.Range("A1").PasteSpecial xlPasteColumnWidths
h2.Range("A1").PasteSpecial xlPasteValues
h2.Range("A1").PasteSpecial xlPasteFormats
h2.PageSetup.PrintArea = ""
h2.ResetAllPageBreaks
'
On Error Resume Next
For n = 1 To h2.HPageBreaks.Count
h2.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1
Next
On Error GoTo 0
'
Call Macro4(h2)
u2 = h2.Range("D" & Rows.Count).End(3).Row
h2.PageSetup.PrintArea = "A1:I" & u2
'
For n = 71 To u2 Step 66
h2.HPageBreaks.Add Before:=h2.Range("A" & n)
Next
End Sub[Recuerda valorar la respuesta.
