Visual Basic - vb 6.0 exportar a excel con margenes al salto de pagina

Private Sub btn_excel_Click()

Dim hoja, objExcel, xlibro As Object

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = False

objExcel.Workbooks.Add

Set hoja = objExcel.activesheet

imagen1 = "C:\\Aplicacion\encabezado1.jpg"

hoja.Shapes.AddPicture imagen1, False, True, 2, 2, 910, 50

imagen2 = "C:\Aplicacion\encabezado2.jpg"

hoja.Shapes.AddPicture imagen2, False, True, 2, 48, 60, 50

hoja.cells(4, 2) = Label1.Caption

hoja.cells(4, 2).Font.Size = 26

hoja.cells(5, 2) = Label2.Caption

hoja.cells(5, 3).Font.Size = 18

    '¿¿¿¿aqui debe ir codigo de centrar el Label2.Caption....que no se como sera????

hoja.cells(6, 3) = Label3.Caption

hoja.cells(6, 4).Font.Size = 16

hoja.cells(7, 3) = Label4.Caption

hoja.cells(7, 5).Font.Size = 16

hoja.cells(8, 3) = num_presup.Caption

    '¿¿¿¿aqui debe ir codigo de centrar el num_presup.Caption....que no se como sera????

hoja.cells(8, 6).Font.Size = 24

hoja.Rows(4).Font.Bold = True

hoja.Rows(8).Font.Bold = True

hoja.Rows(4).Font.Color = vbBlack 'Autoajustamos

hoja.Columns("A:Z").AutoFit

objExcel.Visible = True

Set hoja = Nothing

Set xlibro = Nothing

Set objExcel = Nothing

End Sub

hoja.cells(4, 2) = " " & Label1.Caption   'me llevo el valor del label con un espacio antes del valor 

hoja.range("B4:O4").Font.Size = 26    'defino tamaño de la fuente

hoja.range("B4:O4").MergeCells = True    'combino las celdas

hoja.range("B4:O4").HorizontalAlignment = 3   'es aqui donde centro el valor del label, el numero 3 significa centrar.... el valor 2 es left, el 4 rigth....