you try on this:
Function rFont(cType, nPar1)
Local __nf := 0
Local aSets := {}
If ( !lPrinting )
Return ( "" )
EndIf
Do Case
Case ( cPrinter == "DirectPrint" )
Return ( Nil )
Case ( cPrinter == "EpsonPVt88" )
//para epson t88p p.vta. t‚rmico
aSets := { {"Normal", Chr(8)},;
{"Comprimido", Chr(15)},;
{"Expandido", Chr(14)},;
{"AltoDoble", CHR(27) + "!" + CHR(27) + Chr(0)},;
{"AltoNormal", CHR(27) + "" + CHR(27) + Chr(64)},;
{"Cancelar", CHR(64) + "" + CHR(27) + Chr(64)},;
{"Cortador", Chr(27) + 'i'} ;
}
Case ( cPrinter == "IBMProPrinter" )
//para epson t88p p.vta. t‚rmico
aSets := { {"Normal", Chr(18)},;
{"10Cpi", Chr(18)},;
{"Comprimido", Chr(15)},;
{"Expandido", Chr(14)},;
{"AltoDoble", CHR(27) + "!" + CHR(27) + Chr(0)},;
{"AltoNormal", CHR(27) + "" + CHR(27) + Chr(64)},;
{"Cancelar", CHR(64) + "" + CHR(27) + Chr(64)},;
{"Cortador", Chr(27) + 'i'} ;
}
Case ( cPrinter == "HPLaser" )
aSets := { {"Normal", "&k0S" },;
{"Comprimido", "&k2S" },;
{"Expandido", Chr(14)},;
{"SubrayadoOn", CHR(27) + "&dD"},;
{"SubrayadoOff",CHR(27) + "&d@"},;
{"AltoDoble", CHR(27) + "!" + CHR(27) + Chr(0)},;
{"#Copias", CHR(27) + "&l1X"},;
{"Test", CHR(27) + "z" },;
{"Cancelar", Chr(27) + 'E'} ;
}
EndCase
If ( (__nf := aScan(aSets, {|f| f[1] == cType})) <> 0 )
QQOut(aSets[__nf][2])
End
Return ( "" )
L.I.A. Ramon Zea
ramonzea@hotmail.com