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
Hola amigos tengo una lista que viene en este formato:
1 B Specialty LLC
Aaron BentleyOwner
(260) 426-5832
1629 N Highlands Blvd Fort Wayne, IN 46808
5261-06
Landscaping Equipment & Supplies
101 Bowl
Jeni JonesOwner
(260) 632-1018
22311 Main St Woodburn, IN 46797
7933-01
Bowling Centers
Alguien me puede ayudar o decirme como puedo hacer para cambiar el formato de todo para que quede de esta manera
1 B Specialty LLC Aaron BentleyOwner (260) 426-5832 1629 N Highlands Blvd Fort Wayne, IN 46808 5261-06 Landscaping Equipment & Supplies
101 Bowl Jeni JonesOwner (260) 632-1018 22311 Main St Woodburn, IN 46797 7933-01 Bowling Centers
Cada cosa que quede en su columna..
Saludos