Diseñar un formato tamaño tikets 8mm

Formato Tikets 8 mm

 Sub FormatoTikets8mm()
'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 = 9
End With
'Definimos ancho de la columna A en 8mm es 32.86
Columns("A:A").ColumnWidth = 32.86
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 tipo y tamaño de letra a toda la hoja
End Sub