fonte nos relatorios

[gralak]

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é+++

[momente]

Amigo Gralak,

Eu não testei mas tente assim:

SET FONT TO <cFontName> , <nFontSize>


Valeu! :)Pos

[gralak]

Caro amigo MOMENTE
a minha sequencia de codigos esta dessa forma USANDO A TABELA DE CLIENTE

DO REPORT;
TITLE " KKFJFJFJHFHFDJKFJASLDFHSAJ" ;
HEADERS {" "," "} , {"CODIGO","NOME"};
FIELDS {"CL_CODI" ,"CL_RAZA"};
WIDTHS { 06,60};
TOTALS {.F.,.F.};
NFORMATS{" "," "};
WORKAREA CLIENTE;
LPP 55;
CPL;
LMARGIN 3 ;
TMARGIN 3 ;
PAPERSIZE DMPAPER_A4;
PREVIEW;
SELECT;
MULTIPLE;
HEADGRP "NAME";

TENTEI COLOCAR O COMANDO QUE VC ME PASSOU EM VARIOS LUGARES DENTRO DESSA SEQUENCIA MAS NADA.
TEM ALGUMA OUTRA IDÉIA?

[Toledo]

Gralak, com o DO REPORT você não tem como definir a fonte e o seu tamanho, isto já está predefinido. A fonte sempre vai ser Courier New e o tamanho vai variar de 6 a 12, isto é calculado na hora da emissão do relatório, de acordo com o conteúdo das colunas que serão impressas.

Agora, utilizando o HBPRINTER você poderá definir as fontes e os tamanhos das letras. Veja um exemplo abaixo:

Código: Selecionar todos

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

Abraços,

[gralak]

vlw administrador agora vou testar
obrigado abraço!!!

[gralak]

fora executados com sucesso os relatorios mas acontece que quando se
cancela o relatorio da erro de sistema e pede pra fecha, tipo aquela terra de erros da microsoft de enviar e coisa tals, se puder me ajudar muito obrigado!!!!
vlw abraço

[Stanis Luksys]

Falaê mano,

Coloca isso dentro do FOR e ve se resolve:

DO EVENTS

Se num resolver vc vai precisar colocar um botão numa janela para cancelar e parar a impressão.

Fica legal também dentro do for ja colocar uma barra de progresso andando nesta mesma janela do botão.

Falou!

[gralak]

vlw vo tentar lá té++++++++

[gralak]

tentei e não deu certo não !! E agora