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..
a Todos,
Me podrian Colaborar Con este Codigo por Favor..
Estaria Muy Agradecido por que no he podido Realizarlo y lo he intentado
Tengo este codigo
ancho = Int(.Range("A1").Width + 5) & ";" & Int(.Range("B1").Width + 40) & ";" & _
Int(.Range("C1").Width + 30) & ";" & Int(.Range("D1").Width + 20) & ";" & _
Int(.Range("E1").Width + 20) & ";" & Int(.Range("F1").Width + 30) & ";" & _
Int(.Range("G1").Width + 10) & ";" & Int(.Range("H1").Width + 30) & ";" & _
Int(.Range("I1").Width + 75) & ";" & Int(.Range("J1").Width - 40) & ";" & _
Int(.Range("k1").Width + 3)Com alinear la columna H1 a la derecha..Esto se muestra en un label..cual es es ql código que el agrego para alienar el H1
[ATTACH]42260.vB[/ATTACH]
Donde Dice -1 y-127800
La 3 y la 4 Columna
Quieor que Esten a la derecha
Hacen Referencia a Estas Columnas
Int(.Range("G1").Width + 10) & ";" & Int(.Range("H1").Width + 30)
Muchas Gracias Saludos a Todos
Solo que me expliquen con un Basta Gracias.. con Cualquier Columna
alinear.rar