
Problemas para Definir áreas de Impresión variables en Excel con VB
Publicado por W (2 intervenciones) el 07/09/2017 11:03:14
Tengo un problema para definir área de impresión variable.
Genero unas facturas que cambian de tamaño según el número de artículos. La zona la defino con el siguiente código:
Cuando lo ejecuto paso a paso, en la ventana de programador usando el depurador con la tecla F8. El programa define bien la zona y en la vista previa todo se ve bien pero cuando lo corro directamente, sin ir paso a paso, no define la zona correctamente y el área de impresión se queda corta. No salen las últimas líneas.
Soy nuevo programando en Visual Basic. Estoy aprendiendo VB por mi cuenta viendo manuales y tutoriales por internet. Muchas veces no sé qué es lo que hago mal.
Agradecería cualquier sugerencia.
Gracias.
Genero unas facturas que cambian de tamaño según el número de artículos. La zona la defino con el siguiente código:
1
2
3
4
5
6
' AreaDeImpresion
Range(Selection, ActiveCell.SpecialCells(xlCellTypeLastCell)).Select
With ActiveCell.Offset(2, 0)
Celda = .Address
End With
ActiveSheet.PageSetup.PrintArea = "$B$1:" & Celda
Cuando lo ejecuto paso a paso, en la ventana de programador usando el depurador con la tecla F8. El programa define bien la zona y en la vista previa todo se ve bien pero cuando lo corro directamente, sin ir paso a paso, no define la zona correctamente y el área de impresión se queda corta. No salen las últimas líneas.
Soy nuevo programando en Visual Basic. Estoy aprendiendo VB por mi cuenta viendo manuales y tutoriales por internet. Muchas veces no sé qué es lo que hago mal.
Agradecería cualquier sugerencia.
Gracias.
- Temporal.rar(635,5 KB)
Valora esta pregunta


0