>Hilmar,
>
>era isto que eu queria.

Qual, o FONT depois do "@...say"?

> Nota 10. Mas na hora de marcar como Solução selecionei a opçao errada e marcou so uma estrela e nao consegui corrigir.

Acho que preimero deve des-marca como "help"; depois pode marcar como soluçao. (E vice-versa, se accidentalmente marca como soluçao, e só queria marcar como "help".)

>
>Obrigado.
>
>>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
>>>