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 que tal no se como poder poner un listbox con barra de dezplamiento horizontal
¿alguna sugerencia?
este es mi codigo que no funciona
Private Sub Lst_nombres_Click()
Call DisplayHScroll
End Sub
Private Sub DisplayHScroll()
Me.Lst_nombres.IntegralHeight = True
Dim x As Integer
For x = 0 To 10
Me.Lst_nombres.Items.Add ("Item " + x.ToString() + " es un texto muy largo")
Next x
Me.Lst_nombres.HorizontalScrollbar = True
Dim g As System.Drawing.Graphics
g = Lst_nombres.CreateGraphics()
Dim hzSize As Integer
g.MeasureString(lst_nombre.Items(Lst_nombres.Items.Count - 1).ToString(), Lst_nombres.Font).Width
Me.Lst_nombres.HorizontalExtent = hzSize
End Sub