Diseñar un formato tamaño tikets 5mm

                                            

Formato tikets 5mm

       

Sub FormatoTikets5mm()

'Seleccionamos la hoja

With ActiveSheet.PageSetup

'Definimos encabezado izquierdo fecha y hora

    .LeftHeader = "&D-&T"

'Definimos margen superior

    .TopMargin = Application.InchesToPoints(0.433070866141732)

'Definimos margen inferior

    .BottomMargin = Application.InchesToPoints(0.118110236220472)

'Definimos margen izquierdo

    .LeftMargin = Application.InchesToPoints(0.118110236220472)

'Definimos margen derecho

    .RightMargin = Application.InchesToPoints(0.118110236220472)

'Definimos margen del encabezado

    .HeaderMargin = Application.InchesToPoints(0.196850393700787)

'Definimos margen del pie de página

    .FooterMargin = Application.InchesToPoints(0.31496062992126)

End With

'Definimos fuente y tamaño de la columna A

Columns("A:A").Select

With Selection.Font

    .Name = "Calibri"

    .Size = 7

End With

'Definimos ancho de la columna A en 5mm es 21.14

Columns("A:A").ColumnWidth = 21.14

With Selection

'Definimos alineación

    .HorizontalAlignment = xlGeneral

    .VerticalAlignment = xlCenter

    .WrapText = True

    .ReadingOrder = xlContext

End With

Range("A1").Select

With Selection

'Definimos alineación celda A1

    .HorizontalAlignment = xlCenter

    .VerticalAlignment = xlCenter

    .WrapText = True

    .ReadingOrder = xlContext

End With

'Cambiar tamaño de fuente encabezado a 8 Calibri Normal

'Ajustar margen superior si es necesario

'Definimos fuente y tamaño de la columna A a toda la hoja

End Sub

Al enviar datos a este formato su presentación será como se muestra. Si cuenta con impresora térmica podrá imprimir reportes a los clientes.