Excelente ejemplo que demuestra como pasar datos de VFP a Word a través de automatización y aplicarle formato al texto dependiendo de algunas condiciones.
Use Home(2)+"Dataorders.dbf"Shared
oWord = CreateObject("Word.Application")
oDoc = oWord.Documents.Add()
oRange = oDoc.Range()
oDoc.Tables.Add(oRange, 20, 2)
oTable = oDoc.Tables(1)
With oTable
.Cell(1, 1).Range.Font.Size= "10"
.Cell(1, 1).Range.Font.Name= "Arial"
.Cell(1, 1).Shading.BackgroundPatternColor = 0
.Cell(1, 1).Range.Font.Color
= 16777215
.Cell(1, 1).Range.Text= "Vendedor"
.Cell(1, 2).Range.Font.Size= "10"
.Cell(1, 2).Range.Font.Name= "Arial"
.Cell(1, 2).Range.Font.Color
= 16777215
.Cell(1, 2).Shading.BackgroundPatternColor = 0
.Cell(1, 2).Range.Text= "Total de la venta"
EndWith
nPos = 2
Scan For Recno() <= 20
nPos = nPos + 1
With oTable
.Cell(nPos, 1).Range.Font.Color= 0
.Cell(nPos, 1).Range.Text= Cust_Id
.Cell(nPos, 1).Shading.BackgroundPatternColor = 15132390
If
Order_Amt <= 600 Then
.Cell(nPos, 2).Shading.BackgroundPatternColor = 65535
Else
.Cell(nPos, 2).Shading.BackgroundPatternColor = 8454016
EndIf
.Cell(nPos, 2).Range.Font.Color= 1
.Cell(nPos, 2).Range.Text= Transform(Order_Amt)
EndWith
EndScan
Use In Orders
oWord.Visible = .T.
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
