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
Paulo Cesar Carneiro
desenvolvimento@controplan.com.br"My God, what have we done?"
-- Capt. Robert Lewis, co-pilot of the Enola Gay, recalling the moment the atomic bomb exploded over Hiroshima
At 8:15 a.m. on August 6 1945
