Power Builder - Cambiar color y el tamaño de celdas a un una tabla de word desde powerbuilder

 
Vista:
sin imagen de perfil

Cambiar color y el tamaño de celdas a un una tabla de word desde powerbuilder

Publicado por leandro (1 intervención) el 28/09/2018 15:44:36
Ya puedo crear la tabla

ole_object.ActiveDocument.Tables.Add (ole_object.Selection.Range,5,5).select

es algo simple pero funciona lo que sucede es que aparece de color blanco o no se seleccionan los bordes, no se llega a visualizar ademas de no saber como controlar el tamaño del ancho y largo de cada columna

Gracias por cualquier ayuda
psdt: es para un trabajo
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
Imágen de perfil de Leonardo Daniel A.
Val: 845
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Cambiar color y el tamaño de celdas a un una tabla de word desde powerbuilder

Publicado por Leonardo Daniel A. (376 intervenciones) el 02/10/2018 06:19:22
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

Cambiar color y el tamaño de celdas a un una tabla de word desde powerbuilder

Publicado por leandro (1 intervención) el 09/10/2018 17:30:07
Eso ya lo hice pero cómo podría usar el VBA desde power builder he tratado de cambiar el código que he encontrado pero salen varios errores.
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 Leonardo Daniel A.
Val: 845
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Cambiar color y el tamaño de celdas a un una tabla de word desde powerbuilder

Publicado por Leonardo Daniel A. (376 intervenciones) el 09/10/2018 18:07:47
Hola desgraciadamente no hay documentacion para PowerBuilder, hay que ir buscando ejemplos por decir en VB y luego convertirlos a PowerBuilder, y pues analizar el modelo jerarquico de objetos de VBA, te paso parte de un codigo donde modifico un archivo de excel.....

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
long ll_result
oleobject lole_excel
TRY
	string ls_nuevo
	ls_nuevo = Mid(spRuta, 1, Pos(spRuta, '.')) + "xls"
	lole_excel = create oleobject
	ll_result = lole_excel.ConnectToNewObject("Excel.Application")
	lole_excel.WorkBooks.Open( spRuta )
	lole_excel.DisplayAlerts = False
	lole_excel.worksheets(1).Activate
	// Insertar 3 lineas
	lole_excel.ActiveWorkbook.Worksheets(1).Range("1:3").Select
	lole_excel.ActiveWorkbook.Worksheets(1).Range("1:3").Insert
 
	// Titulo
	lole_excel.ActiveWorkbook.Worksheets(1).Range("A1").Select
	lole_excel.Selection.Font.Bold = True
	lole_excel.Selection.Font.Size = 14
	lole_excel.ActiveCell.FormulaR1C1 = "Azteca Express"
 
	// Fecha
	lole_excel.ActiveWorkbook.Worksheets(1).Range("A2").Select
	lole_excel.ActiveCell.FormulaR1C1 = "Date: " + String( today(), "mm/dd/yyyy" )
 
	lole_excel.ActiveWorkbook.Worksheets(1).Range("A3").Select
	lole_excel.ActiveCell.FormulaR1C1 = titulo
	lole_excel.ActiveSheet.PageSetup.PrintTitleRows = "$1:$"+string(lineas_titulo)
 
	if Upper(orientacion) = 'V' then
		lole_excel.ActiveSheet.PageSetup.Orientation = 1
	else
		lole_excel.ActiveSheet.PageSetup.Orientation = 2
	end if
	lole_excel.ActiveSheet.PageSetup.Zoom = False
	lole_excel.ActiveSheet.PageSetup.FitToPagesWide = 1
	lole_excel.ActiveSheet.PageSetup.FitToPagesTall = 50
   lole_excel.ActiveSheet.PageSetup.ScaleWithDocHeaderFooter = True
   lole_excel.ActiveSheet.PageSetup.AlignMarginsHeaderFooter = True
 
	lole_excel.ActiveWorkbook.SaveAs( ls_nuevo, 56 )
	//FileDelete( spRuta )
 
	lole_excel.windowstate = -4137
	lole_excel.Application.Visible = true
	lole_excel.DisconnectObject()
	DESTROY lole_excel
CATCH (Oleruntimeerror ole_err)
   	SetPointer(Arrow!)
      f_mensaje("A", ole_err.text)
//FINALLY
//      lole_excel.Application.DisplayAlerts = False
//      lole_excel.Application.Workbooks(1).Close()
//      DESTROY lole_excel
END TRY
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