Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Un favor, me pueden ayudar a generar archivo txt en la columna N de la primera hoja excel pero con alguna macro y asignandole un boton para ejecutar.
Al unir quiero que sea usando la barrita "|"
Gracias,
No puedo adjuntarlo pero asi debe quedar pero quiero una macro y boton ejecutar.
[TABLE=width: 615]
[TR]
[TD]20130600| 1| 01| 121| 20/10/2010| VENTA DE MERCADERIAS| 11900.00| 0.00| 1|[/TD]
[/TR]
[TR]
[TD]20130600| 1| 01| 40111| 20/10/2010| VENTA DE MERCADERIAS| 0.00| 1900.00| 1|[/TD]
[/TR]
[TR]
[TD]20130600| 1| 01| 701| 20/10/2010| VENTA DE MERCADERIAS| 0.00| 10000.00| 1|[/TD]
[/TR]
[/TABLE]