Sera que alguém poderia me ajudar a mudar a fonte das letras nos relatorios.
estou usando o hbprinter,
mais precisamente o exemploda minigui mesmo o DO REPORT
se alguém puder ajudar. vlw galera té+++ :-o

Moderador: Moderadores
Function Imprimir_carne()
INIT PRINTSYS
SELECT BY DIALOG
SET PAPERSIZE DMPAPER_LEGAL
SET ORIENTATION PORTRAIT
SET UNITS MM
SELECT DEFAULT PREVIEW
// Definindo as fontes e seus tamanhos
DEFINE FONT "Font1" NAME "Arial" SIZE 5
DEFINE FONT "Font2" NAME "Verdana" SIZE 9 BOLD
DEFINE FONT "Font3" NAME "Arial" SIZE 9
START DOC
GO TOP
DO WHILE !EOF()
START PAGE
ln=10
FOR x1=1 TO 4
cl=12
FOR x2=1 TO 2
@ ln,cl,ln,cl+78 LINE
@ ln-1,cl SAY "NOME" FONT "Font1" TO PRINT
@ ln+1,cl+6 SAY NOME FONT "Font3" TO PRINT
@ ln+6,cl,ln+6,cl+78 LINE
@ ln+5,cl SAY "INSCRIÇÃO Nº" FONT "Font1" TO PRINT
@ ln+7,cl+15 SAY INSCR FONT "Font3" TO PRINT
@ ln+5,cl+40 SAY "TEL" FONT "Font1" TO PRINT
@ ln+7,cl+45 SAY TELEFONE FONT "Font3" TO PRINT
@ ln+12,cl,ln+12,cl+78 LINE
@ ln+11,cl SAY "VENCIMENTO" FONT "Font1" TO PRINT
@ ln+13,cl+15 SAY VENCTO FONT "Font3" TO PRINT
@ ln+11,cl+40 SAY "VALOR R$" FONT "Font1" TO PRINT
@ ln+13,cl+52 SAY VALOR FONT "Font3" TO PRINT
@ ln+18,cl,ln+18,cl+78 LINE
@ ln+17,cl SAY "JURO DE MORA" FONT "Font1" TO PRINT
@ ln+17,cl+40 SAY "VALOR TOTAL R$" FONT "Font1" TO PRINT
@ ln+24,cl,ln+24,cl+78 LINE
@ ln+27,cl+3 SAY "NOME DA EMPRESA" FONT "Font2" TO PRINT
@ ln+31,cl-1 picture "logor.bmp" size 16,32
@ ln+31,cl+36 SAY "Tel. (99) 9999-9999" FONT "Font1" TO PRINT
@ ln+34,cl+36 SAY "Resid. (99) 9999-9999" FONT "Font1" TO PRINT
@ ln+37,cl+36 SAY "Av. Dr. Raul da Cunha, 999 – Centro" FONT "Font1" TO PRINT
@ ln+40,cl+36 SAY "CEP 16800-000 – Mirandópolis - SP" FONT "Font1" TO PRINT
@ ln+50,cl,ln+50,cl+78 LINE
@ ln+51,cl+23 SAY "PARCELA Nº "+PARCELA FONT "Font3" TO PRINT
@ ln+56,cl,ln+56,cl+78 LINE
cl=100
NEXT
SKIP
IF EOF()
EXIT
ENDIF
ln+=76
NEXT
END PAGE
ENDDO
END DOC
RELEASE PRINTSYS
Return Nil
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes