edmar1361303188 Posted July 23, 2002 Report Share Posted July 23, 2002 Olá, A sintaxe para a alteração de fontes na impressora não é como no exemplo a seguir. Define Font oFont Name "Ms Sans Serif" SIZE 0,8 Of oPrn Já tentei vários tipos de fontes e simplesmente não acontece nada, ele continua insistindo em imprimir o mesmo de tipo de letra. Minha impressora é uma Epson LX 300, o Preview de meu relatório também fica louco quando uso o zoom, em página normal exibe corretamente. Onde pode estar o problema, abaixo está um pouco do meu código. Print oPrn Name "Clientes" Preview CursorWait() plin:=oPrn:nVertRes() / 65 pcol:=oPrn:nHorzRes() / 80 oPrn:SetPage(1) linpag:=(oPrn:nVertRes()) colpag:=oPrn:nHorzRes() If norm=2 Define Font oFont Name "Ms Sans Serif" SIZE 0,8 Of oPrn Endif dbgotop() while !eof() if (ocinat.and.inativo="S") dbskip() loop endif lin:=col:=1 Page cabec("Relação de clientes") if norm=2 if ordem=1 oPrn:Say(lin,1,"NOME CODIGO ENDERECO BAIRRO TELEFONE") plin() oPrn:Say(lin,1,"COMPLEMENTO C.N.P.J/C.P.F INSC.EST. CEP CONTATO") else oPrn:Say(lin,1,"NOME CODIGO ENDERECO BAIRRO CIDADE ESTADO") plin() oPrn:Say(lin,1,"COMPLEMENTO C.N.P.J/C.P.F INSC.EST. CEP CONTATO VENDEDOR TELEFONE") endif plin() oPrn:Say(lin,0,replicate("_",oPrn:nHorzres())) endif ...continua Quote Link to comment Share on other sites More sharing options...
gilmer Posted July 25, 2002 Report Share Posted July 25, 2002 Olá, Eu vou postar em dicas uma função para criar fontes calculando o tamanho proporcional a resolução da impressora, não irei postar hoje pois estou viajando citação: Olá, A sintaxe para a alteração de fontes na impressora não é como no exemplo a seguir. Define Font oFont Name "Ms Sans Serif" SIZE 0,8 Of oPrn Já tentei vários tipos de fontes e simplesmente não acontece nada, ele continua insistindo em imprimir o mesmo de tipo de letra. Minha impressora é uma Epson LX 300, o Preview de meu relatório também fica louco quando uso o zoom, em página normal exibe corretamente. Onde pode estar o problema, abaixo está um pouco do meu código. Print oPrn Name "Clientes" Preview CursorWait() plin:=oPrn:nVertRes() / 65 pcol:=oPrn:nHorzRes() / 80 oPrn:SetPage(1) linpag:=(oPrn:nVertRes()) colpag:=oPrn:nHorzRes() If norm=2 Define Font oFont Name "Ms Sans Serif" SIZE 0,8 Of oPrn Endif dbgotop() while !eof() if (ocinat.and.inativo="S") dbskip() loop endif lin:=col:=1 Page cabec("Relação de clientes") if norm=2 if ordem=1 oPrn:Say(lin,1,"NOME CODIGO ENDERECO BAIRRO TELEFONE") plin() oPrn:Say(lin,1,"COMPLEMENTO C.N.P.J/C.P.F INSC.EST. CEP CONTATO") else oPrn:Say(lin,1,"NOME CODIGO ENDERECO BAIRRO CIDADE ESTADO") plin() oPrn:Say(lin,1,"COMPLEMENTO C.N.P.J/C.P.F INSC.EST. CEP CONTATO VENDEDOR TELEFONE") endif plin() oPrn:Say(lin,0,replicate("_",oPrn:nHorzres())) endif ...continua id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.