05/Dic/06 14:05
Re: Macro para impresión ininterrumpida
si existe, yo la uso, en mi caso tengo un formato en la hoja1 donde llamo el rango [color=green:c7f7bdab19]Formato [/color:c7f7bdab19]y la base de datos en la hoja2 donde hay una columna llave que nombro [color=green:c7f7bdab19]Lista[/color:c7f7bdab19], en la hoja1 estan ligados con fórmula los datos a la hoja2.
[code:1:c7f7bdab19]Sub Impresión_sucesiva()
Dim cant, ver As Byte
cant = Application.InputBox("Cuántas copias necesita imprimir de cada Recibo?", "Cantidad de Copias", 2, , , , , 3)
If cant <= 0 Then Exit Sub
ver = MsgBox("¿Quiere una vista previa de Cada recibo antes de Imprimirlo?", vbYesNo + vbDefaultButton1, "Vista previa")
For Each TY In Range("Lista")
If IsEmpty(TY) Then Exit Sub
' se supone que no dejas registros intermedios vacíos
[B3] = TY.Value
Range("Formato").PrintOut Copies:=cant, Preview:=IIf(7 - ver = 0, False, True)
Next TY
End Sub
[/code:1:c7f7bdab19]
«Antes que cambien los reinos, los hombres deberán cambiar»
═╬═