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

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 7
Ha aumentado su posición en 7 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

vb 6.0 exportar a excel con margenes al salto de pagina

Publicado por Javier (4 intervenciones) el 09/09/2017 14:40:59
buen dia amigos necesito nuevamente de su ayuda ahora estoy exportando a excel desde vb 6.0 pero necesito que los margenes esten exportados en vista al salto de pagina y no se como hacerle ademas necesito centrar dos celdas pero no se como sera (estan comentadas esa dos celdas). el exportar a excel si lo hace bien y la ubicacion de los datos en celda tambien al igual que la imagen...este es el codigo agradezco su ayuda amigos...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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

agradezco su ayuda .....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 7
Ha aumentado su posición en 7 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

vb 6.0 exportar a excel con margenes al salto de pagina

Publicado por Javier (4 intervenciones) el 10/09/2017 05:21:59
hola amigos resolvi la segunda pregunta que estoy solicitando que es centrar los datos exportados es de la siguiente forma....
1
2
3
4
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....


ahora necestio la ayuda de ustedes es con el salto de pagina ese si no como sera amigos....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.925
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

vb 6.0 exportar a excel con margenes al salto de pagina

Publicado por Andres Leonardo (1739 intervenciones) el 11/09/2017 17:21:42
Intenta grabajando una macro .. .y mira como pone un salto de pagina

luego en tu codigo añades ese codigo anteponiendo el obj excel que tienes con la instruccion y deberia funcionarte perfecto.

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar