Clase TPRINTER (Solucionado)

Clase TPRINTER (Solucionado)

Postby Armando » Sat Mar 03, 2018 7:27 pm

Hola Amigos:

Estoy usando la clase TPRINTER así

Code: Select all  Expand view

            oPrn:CMSAY(nRow,4.25,"TIE671206BF2",oFnt3,,cClrTxt)
 


Cómo puedo imprimir el texto en blanco y el fondo negro?

Saludos
Last edited by Armando on Sun Mar 04, 2018 5:32 pm, edited 1 time in total.
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3061
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Clase TPRINTER

Postby nageswaragunupudi » Sun Mar 04, 2018 4:26 am

Method-1
Code: Select all  Expand view
  nOldClr  := SetBkColor( oPrn:hDCOut, CLR_BLACK )
   oPrn:CmSay( 10, 4.25,"TIE671206BF2",oFont,,CLR_WHITE, 2 )
   SetBkColor( oPrn:hDC, nOldClr )
 


Method-2
From FWH 16.04 onwards
Code: Select all  Expand view
  @ 20,4.25 PRINT TO oPrn TEXT "TIE671206BF2" SIZE 40,1 CM COLOR CLR_WHITE,CLR_BLACK FONT oFont
 

We recommend usage of this command.
Full Syntax:
Code: Select all  Expand view
#xcommand @ <nRow>, <nCol> PRINT TO <prn> TEXT <cText> ;
      [SIZE <nWidth> [,<nHeight>] ] ;
      [<unit: PIXEL,MM,CM,INCHES>] ;
      [FONT <fnt>] ;
      [ALIGN <aln>] ;
      [COLOR <nTxt> [,<nBck> ] ] ;
      [LASTROW <lrow>] ;
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10248
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Clase TPRINTER

Postby Armando » Sun Mar 04, 2018 5:09 pm

Mr. Rao:

Thanks a lot for your answer, because I use FWH0810 I will try
your first option.

Best regads
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3061
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Clase TPRINTER

Postby Armando » Sun Mar 04, 2018 5:32 pm

Mr. Rao:

The problem was solved succesfully.

Thanks again.

With Best regards
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3061
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 78 guests