Imprimir fonte com fundo preto

[oribeiro]

Pessoal,

Como faço para imprimir uma fonte com cor branca e fundo preto?

 

[Theotokos]

oPrn:Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad )

 

oPrn:Say( 10, 20, "TESTE", oFont1, , CLR_WHITE, CLR_BLACK)

[oribeiro]

Obrigado

[oribeiro]

Não deu certo esse comando.

O nBkMode aceita 1=transparent or 2=Opaque mas nenhum deles deixa a impressão com o fundo preto e a fonte branca.

Alguém tem alguma outra dica?

[kapiaba]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=30323&p=173542&hilit=OPAQUE#p173542

 

 

[kapiaba]

Dei muro, pode explicar melhor o que você quer fazer, baseado nesta imagem?

Abs

[oribeiro]

Boa tarde João,

Este link trata de justificar, centralizar, etc o texto no comando oPrn:Say().

O que eu preciso é imprimir o texto branco com o fundo preto.

Você tem um exemplo disso?

Obrigado.

 

 

[kapiaba]

Fundo preto? Eu não tenho certeza, mas acho que não. Porém, eu acho, que é possivel colocar um SHADOW() -> Sombra no seu fundo. 

[oribeiro]

Boa idéia João,

Mas como eu faço esse SHADOW() no oPrn:Say() ??

[kapiaba]

Eu acho que é assim:

   LOCAL oBrush
	   DEFINE BRUSH oBrush COLOR 16363082 // Azul da cor do mar
	   // c11, c12, c21, c32 são as corrdenadas da área que você deseja colorir
   oPrn:FillRect({ c11, c12, c21, c32 }, oBrush )  // SHADOW, sombra

[kapiaba]

Melhorando...

   DEFINE BRUSH oBrush COLOR nRGB(215,215,215)
	   aDesde := oPrn:Cmtr2Pix( nRow, 0 )
   aHasta := oPrn:Cmtr2Pix( (nRow + 0.3), 27 )
	   oPrn:FillRect({aDesde[1],aDesde[2],aHasta[1],aHasta[2]},oBrush)
   oPrn:CmSay( nRow, 4.0, "Total del dia : " + des_fecha(dFechaCorte), oFont[5] )

[oribeiro]

João,

Não deu! Risos

Não mudou a cor de fundo na linha impressa.

[aferra]

qual é a sua versão do fivewin?

[kapiaba]

Uma imagem fala por si. 

[kapiaba]

Fundo PRETO, Texto BRANCO -> Black and white.

 

Nóis é phoda né Alessandro?? kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

[aferra]

com certeza. rsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrs, por isso perguntei da versão, talvez não faça ou faça, vai saber kkkkk

[oribeiro]

Estou com a versão de dezembro de 2013

Passou a fazer isso na versão 16.04, veja:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=2156&p=195251#p195251

Obrigado a todos.

[atnsoft]

E com o Pen não dá ? (ele faz o fundo, a cor da letra fico devendo se funciona)

 

Print oPrn Name "Guia"
oPrn:SetCopies(Pcopia)
oPrn:SetLandScape()

Define Font oFont1 Name "Times New Roman" Bold Size 0, -11      of oPrn
Define Font oFont2 Name "Times New Roman"      Size 0, -07      of oPrn
Define Font oFont3 Name "Times New Roman" Bold Size 0, -07      of oPrn
Define Font oFont4 Name "Courier New"          Size 0, -07 Bold of oPrn
Define Font oFont5 Name "Times New Roman"      Size 0, -08      of oPrn

Define Pen oPen1 Width 50 Color nRgb(192,192,192)

nLi    := oPrn:nLogPixelX()/2.54
nCo    := oPrn:nLogPixelY()/2.54

While (nPagina <= Len(aProce))

      Page

          oPrn:Box(0.20*nLi, 0.1*nCo, 20*nLi, 28.6*nCo)

          oPrn:Say(0.66*nLi, 0.34*nCo, Left(Pconvenio,28), oFont5)
          oPrn:Say(0.50*nLi, 6.00*nCo, "GUIA DE SERVIÇO PROFISSIONAL / SERVIÇO AUXILIAR DE DIAGNÓSTICO E TERAPIA - SP/SADT", oFont1)
          oPrn:Say(0.66*nLi, 25.5*nCo, "2- N° ", oFont2)
          oPrn:Say(0.66*nLi, 26.5*nCo, Pnumero, oFont3)

          oPrn:Line(1.23*nLi, 0.33*nCo, 1.23*nLi, 28.3*nCo)

          oPrn:Box(1.46*nLi, 0.33*nCo, 2.22*nLi, 28.3*nCo)

          oPrn:Say(1.46*nLi, 0.34*nCo, "1- Registro ANS", oFont2)
          oPrn:Line(1.46*nLi, 2.23*nCo, 2.22*nLi, 2.23*nCo)
          oPrn:Say(1.46*nLi, 2.34*nCo, "3- Número da Guia Principal", oFont2)
          oPrn:Line(1.46*nLi, 9.35*nCo, 2.22*nLi, 9.35*nCo)
          oPrn:Say(1.46*nLi, 9.44*nCo, "4- Data da Autorização", oFont2)
          oPrn:Line(1.46*nLi, 12.11*nCo, 2.22*nLi, 12.11*nCo)
          oPrn:Say(1.46*nLi, 12.20*nCo, "5- Senha", oFont2)
          oPrn:Line(1.46*nLi, 15.11*nCo, 2.22*nLi, 15.11*nCo)
          oPrn:Say(1.46*nLi, 15.25*nCo, "6- Data Validade da Senha", oFont2)
          oPrn:Line(1.46*nLi, 22.11*nCo, 2.22*nLi, 22.11*nCo)
          oPrn:Say(1.46*nLi, 22.20*nCo, "7- Data de Emissão da Guia", oFont2)
          oPrn:Say(1.80*nLi, 0.64*nCo, Tans, oFont3)
          oPrn:Say(1.80*nLi, 2.64*nCo, PnumeroP, oFont3)

          oPrn:Say(1.80*nLi, 09.45*nCo, "____|____|_________", oFont5)

          oPrn:Say(1.80*nLi, 15.25*nCo, "____|____|__________", oFont5)

          oPrn:Say(1.80*nLi, 22.50*nCo, TData, oFont3)

          oPrn:Box(2.35*nLi, 0.42*nCo, 2.56*nLi, 28.23*nCo, oPen1)

          oPrn:Say(2.30*nLi, 0.34*nCo, "Dados do Beneficiário", oFont2)

[oribeiro]

Muito obrigado.

Consegui entender o seu exemplo e fazer o que eu queria.