#define CF_SCREENFONTS 0x00000001

#define CF_PRINTERFONTS 0x00000002

#define CF_BOTH (CF_SCREENFONTS + CF_PRINTERFONTS)

#define CF_SHOWHELP 0x00000004

#define CF_USESTYLE 0x00000080

#define CF_EFFECTS 0x00000100



loComDialog = newobject( "mscomdlg.commondialog" )



WITH loComDialog

 

        
.Flags = CF_BOTH + CF_EFFECTS  && Muestra
las fuentes Imprimibles y de la Ventana



        
.FontName = "Arial"  &&Valor Iniciales

        
.FontSize = 22          
&&Valor Iniciales



        
.ShowFont()



          
&& Resultado del tipo de letra seleccionado

        
? .FontName, .FontSize, .FontBold, .FontItalic, .FontStrikeThru,
.FontUnderline, .Color

ENDWITH

lcNombreArchivo
= Sys(2015) + ".prg"

Strtofile(CampoMemo, lcNombreArchivo
)

Compile (lcNombreArchivo)   
&& en VFP 6 SP 3 o superior

DO (lcNombreArchivo)

ExecScript(CampoMemo) 
&&   En VFP 7

Un ejemplo como podemos
crear tablas en Word con datos de tablas de VFP, a través de
Automatización.

USE
employee

lcTemp = SYS(2015)+".txt"



COPY fields empl_id, last_name
TO (lcTemp) TYPE csv

 

lnFields = 2

 

_ClipText = chrtran(FileToStr(lcTemp),["],"")

 

erase (lcTemp)

 

#define wdSeparateByCommas 2



oWordDocument=createobject("word.application") && Create word object

 

WITH oWordDocument

              
.documents.add

        

               
WITH .ActiveDocument

                       
.Range.Paste

                       
.Range.ConvertToTable(wdSeparateByCommas,,lnFields)

               
ENDWITH

     

             
.visible = .t.

             
.Activate

ENDWITH

 

oCrypt = NEWOBJECT("_cryptapi",HOME()+"ffc\_crypt.vcx")

oCrypt.encryptSessionStreamString("Encriptando Texto","clave", @cEncryptedString)

LOCAL objXL, objXLchart, intRotate



objXL = CreateObject("Excel.Application")

objXL.Workbooks.Add

objXL.Cells(1,1).Value = 50

objXL.Cells(1,2).Value = 10

objXL.Cells(1,3).Value = 15

objXL.Range("A1:C1").Select



objXLchart = objXL.Charts.Add()

objXL.Visible = .t.

objXLchart.Type = -4100



For intRotate = 5 To 180 Step 5

     
objXLchart.Rotation = intRotate

Next



For intRotate = 175 To 0 Step -5

     
objXLchart.Rotation = intRotate

Next

oFS=CreateObject("scripting.filesystemobject")
? oFS.Drives("c:\").SerialNumber

Si quiere que nadie cambie
el tamaño de las columnas de un grid, puede utilizar esta forma.

THISFORM.Grid1.SetAll("Resizable", .F.,
"Column")

RUN COPY
 Archivo1.txt +
Archivo2.txt  Destino.txt



Otra forma seria utilizando la función
strtofile



strtofile(filetostr("Archivo1.txt") + filetostr("Archivo2.txt"),
"Destino.txt")

ofs = CreateObject("scripting.filesystemobject")

ofs.copyfolder("c:\Origen","e:\Destino")

Forma de avanzar o retroceder dentro de un grid.

Thisform.Grid1.DoScroll(2)

Thisform.Grid1.DoScroll(3)

Donde los parámetros de
este método son los siguientes:

0 Desplazamiento hacia arriba

1 Desplazamiento hacia abajo

2 Desplazamiento retroceso de página

3 Desplazamiento avance de página

4 Desplazamiento a la izquierda

5 Desplazamiento a la derecha

6 Desplazamiento página a la izquierda

7 Desplazamiento página a la derecha

Edita el archivo SYSTEM.INI, en la
sección 386ENH agrega la siguiente linea:



PerVMFiles = 80

cArchivo = GetFile()



Select Tabla

Append Blank

Append General Tabla.Campogral From (cArchivo)

Select Tabla




For i = 1
To TagCount()

    If Tag(i)
= "IndiceCampo"

       
Wait Window
"SI"

   
EndIf

EndFor

DECLARE INTEGER GetDesktopWindow IN WIN32API

DECLARE INTEGER LockWindowUpdate IN WIN32API INTEGER lnHandle

 

hWin = GetDeskTopWindow()

 

LockWindowUpdate(hWin) 
&& Bloquea actualización de la pantalla

       REPORT FORM NombreReporte.frx TO PRINTER

LockWindowUpdate(0)      && No
actualiza la pantalla