#include "hbcompat.ch"
#include "win32prn.ch"

function main ()

cPrinter := GetDefaultPrinter()

oPrinter:=win32prn():new(cprinter)

oPrinter:FormType:= DMPAPER_LETTER
*oPrinter:PaperLength:= 11*25.4*10
*oPrinter:PaperWidth:=8.5*25.4*10
oPrinter:Copies:=1
oPrinter:Landscape   :=.f.

*oPrinter:SetPrintQuality(2)

oPrinter:Create()

oPrinter:LeftMargin  :=oPrinter:mm_TO_PosX(1)
oPrinter:TopMargin   :=oPrinter:mm_TO_PosY(1)

oPrinter:StartDoc(cPrinter)

oPrinter:NewLine()

* verifica se é par

c_numero:="149121"

c_numero := IIF( LEN( c_numero ) / 2 <> INT( LEN( c_numero ) / 2 ), "0" + c_numero, c_numero )

c_num25  := ""

FOR nn = 1 TO LEN(c_numero) step 2
  
    nn1     := VAL(SUBS( c_numero, nn, 02 ))

    ? nn1
    inkey(0)

    c_num25 := c_num25 + CHR( nn1 + IF(nn1<=49,48,0) + IF(nn1>=50,142,0) )

NEXT nn

* A string "c_num25" é impressa

oPrinter:TextAtFont(0100, 250,"Variavel c_num25: "+c_num25, 'Courier Regular',08, 12 )
oPrinter:TextAtFont(0100, 450,"Variavel c_numero: "+c_numero, 'Courier Regular',08, 12 )
oPrinter:TextAtFont(0100, 750,"("+c_num25+")", 'I2OF5TXT', 20, 5 )

return nil