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