FiveTech Software tech support forums

... SetRT(cOutFile) ************************************** LOCAL oRTF Public oPrinter,aSize DEFINE RTF oRTF FILE cOutFile ; FONTS "Times New Roman", "Courier New", "Arial Cyr" ; FONTFAMILY "froman","fswiss","fmodern"; CHARSET 0,0,10; ...

... SetRT(cOutFile) ************************************** LOCAL oRTF Public oPrinter,aSize DEFINE RTF oRTF FILE cOutFile ; FONTS "Times New Roman", "Courier New", "Arial Cyr" ; FONTFAMILY "froman","fswiss","fmodern"; CHARSET 0,0,10; ...

... ; {"L2", 180, "Campo lógico L2"} {oDbf:Memo, 190, "Campo Memo"} } */ define font oFont name "times new roman" size 11,20 DEFINE DIALOG oDlg RESOURCE "PROBAR2" TITLE "Programa de practica con tablas .DBF" oDlg:lHelpIcon:=.f. REDEFINE ...

... RESOURCE "PROBAR" ; TITLE "Programa de practica con tablas .DBF" oDlg:lHelpIcon:=.f. define font oFont name "times new roman" size 11,20 MisGEts( oDlg, oDbf ) REDEFINE BUTTON oBtn1 Id 4001 of oDlg ; // aContols 9 Prompt "&Salir" ; ACTION (oDlg:End()) ...

... * New function IsRomanNumber( cText ) --> True, if cText is a valid roman numeral. * New function FW_ProperCase( cText, [lRomanUpper=.t.] ) --> cProper Converts text with each word capitalized. Roman numbers are fully ...

... 0 local nDerecha := 0 local nRen local nCodeLeft2 := 4.5 local cCod := "1234" PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "TIME NEW ROMAN" SIZE 0,-12 OF oPrn DEFINE FONT oFont1 NAME "TIME NEW ROMAN" SIZE 0,-58 OF oPrn DEFINE FONT oFont2 NAME "TIME NEW ROMAN" ...

... 0 local nDerecha := 0 local nRen local nCodeLeft2 := 4.5 local cCod := "1234" PRINTER oPrn PREVIEW DEFINE FONT oFont NAME "TIME NEW ROMAN" SIZE 0,-12 OF oPrn DEFINE FONT oFont1 NAME "TIME NEW ROMAN" SIZE 0,-58 OF oPrn DEFINE FONT oFont2 NAME "TIME NEW ROMAN" ...

... aResult := {}, hButtons := {=>}, oBotao1, oBotao2 if !VerificaWindowsSQLBrowser() return endif DEFINE FONT s_oFonteBold NAME "Times New Roman" SIZE 0,-15 DEFINE FONT s_oFonteTitle NAME "Segoe UI Light" SIZE 0, 32 define window s_oWndSqlBrowser mdichild of M->oWnd title ...

... #Include "tcbrowse.ch" #include "FileXLS.ch" static oFileXLS DEFINE XLS FONT nFont2 NAME "Times New Roman" HEIGHT 10 UNDERLINE BOLD CTITUL:=CTITUL+".XLS" XLS oFileXLS FILE &CTITUL AUTOEXEC CTITUL:="REPORTE"+".XLS" ...

... #Include "tcbrowse.ch" #include "FileXLS.ch" static oFileXLS DEFINE XLS FONT nFont2 NAME "Times New Roman" HEIGHT 10 UNDERLINE BOLD CTITUL:=CTITUL+".XLS" XLS oFileXLS FILE &CTITUL AUTOEXEC CTITUL:="REPORTE"+".XLS" ...

... DEFINE XLS FORMAT nFormat1 PICTURE '0' DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 12 BOLD DEFINE XLS FONT nFont3 NAME "Times New Roman" HEIGHT 10 BOLD DEFINE XLS FONT nFont4 NAME "Times New Roman" HEIGHT 10 @ 1,1 XLS SAY "ABC" OF oXls FONT nFont1 If output ...

... -16| 0| 0| 0| 0| 0 10=Comic Sans MS| 0| -10| 0| 0| 0| 0| 0 11=Comic Sans MS| 0| -10| 0| 0| 0| 0| 0 12=Arial| 8| -8| 0| 0| 0| 0| -900 13=Times New Roman| 0| -8| 1| 0| 0| 0| 0 [Colors] 1=10485760 2=16777215 3=0 4=4227072 5=8421376 6=65535 [Infos] Revision=373 SaveDate=05.12.2017 SaveTime=21:32:11 ...

Hola, yo imprimo pasajes de bus asi: oPrn:=PrintBegin("Impresión de documentos",.F.,lPrv,cPrn,.T.) DEFINE FONT aFon1 NAME "Times New Roman" SIZE 0,12 OF oPrn DEFINE FONT aFon2 NAME "COURIER NEW" SIZE 0,14 BOLD OF oPrn DEFINE FONT aFon3 NAME "Times New Roman" ...

... DEFINE XLS FORMAT nFormat1 PICTURE '0' DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 12 BOLD DEFINE XLS FONT nFont3 NAME "Times New Roman" HEIGHT 10 BOLD DEFINE XLS FONT nFont4 NAME "Times New Roman" HEIGHT 10 @ 1,1 XLS SAY "ABC" OF oXls FONT nFont1 How to ...

... es el código que uso: Public oBrw oQryTar := oServer:Query( "SELECT * FROM tarjeta ORDER BY Id" ) DEFINE FONT oFont NAME "Times New Roman" SIZE 0, -12 DEFINE FONT oFont18 NAME "Times New Roman" SIZE 0, -18 BOLD DEFINE DIALOG oDlg SIZE 900,500 PIXEL TRUEPIXEL DEFINE ...