Podería tentar com:

@ ... say "Algum texto" font "Courier New".

Porem, a impressão é muito mais rápida se usar fontes da impresora. Para isto, eu envio um texto à impressora com o comando "???". Se pode cambiar afonte da impressora, enviando códigos que tem que buscar no manual da impressora - por exemplo, chr(18) ativa o modo "compressed".



>Estou tentanto fazer uma impressão direta em uma impressora matricial, LX 300. Só que tenho a necessidade de mudar a Fonte no Meio da Impressão, e isto não funciona.
>
>

>
>SET PRINTER TO DEFAULT
>SET DEVICE TO PRINTER
>
>SET PRINTER FONT 'Courier', 7
>@ PROW()+1, 20 say '---- Courier 7-----'
>FOR i=1 TO 10
>	@ PROW()+1 , 0 SAY TRANSFORM( PROW(),'999') + '  ' + TRANSFORM( PCOL(),'999') + ' Teste de impressao '  + REPLICATE('*',20)
>ENDFOR
>
>@ PROW()+2,20 say  [---Courier 12------]
>
>SET PRINTER FONT 'Courier', 12  STYLE 'BI'
>FOR i=1 TO 10
>	@ PROW()+1 , 0 SAY TRANSFORM( PROW(),'999') + '  ' + TRANSFORM( PCOL(),'999') + ' Teste de impressao '  + REPLICATE('*',20)
>ENDFOR
>
>@ PROW()+2,20 say  [---Courier 10------]
>SET PRINTER FONT 'Courier', 10  STYLE 'BI'
>FOR i=1 TO 10
>	@ PROW()+1 , 0 SAY TRANSFORM( PROW(),'999') + '  ' + TRANSFORM( PCOL(),'999') + ' Teste de impressao '  + REPLICATE('*',20)
>ENDFOR
>
>
>SET PRINTER TO
>SET DEVICE TO screen
>