Sistema Loteria Imprimir

[jairfab]

Estou fazendo um sistema para imprimir os bilhetes de loteria Lotomania, e nao tenho como imprimir o quadro referenta ao numero escolhido ( aquele que no pintamos no cartao quando vamos jogar )

alguem tem alguma ideia


Ja temtei win32prn e hbprinter ( o maximo que sai e isto "ÜÜ ÜÜ ÜÜ ÜÜ ÜÜ ÜÜ ÜÜ ÜÜ ÜÜ ÜÜ" )

[rochinha]

Amiguinho,

Posta o trecho da impressão pra gente ter uma idéia.

[sygecom]

Buenas,

Com a Win32Prn pode usar o exemplo abaixo:

Código: Selecionar todos

#define BLACK           RGB( 0x0 ,0x0 ,0x0 )
#define BLUE            RGB( 0x0 ,0x0 ,0x85 )
#define GREEN           RGB( 0x0 ,0x85,0x0 )
#define CYAN            RGB( 0x0 ,0x85,0x85 )
#define RED             RGB( 0x85,0x0 ,0x0 )
#define MAGENTA         RGB( 0x85,0x0 ,0x85 )
#define BROWN           RGB( 0x85,0x85,0x0 )
#define WHITE           RGB( 0xC6,0xC6,0xC6 )

***********************
Function Imprime()
***********************
local cPrinter:=GetDefaultPrinter()
#ifdef __XHARBOUR__
 local oPrinter := win32prn():New(cPrinter)
#else
 local oPrinter := win_prn():New(cPrinter)
#endif
oPrinter:Landscape:= .F.
oPrinter:FormType:= 9
oPrinter:Copies:=1

IF !oPrinter:Create()
   MsgStop("ATENÇÃO !!! Não foi possivel Iniciar a Impressão.","Aviso do Sistema")
   return NIL
else
   IF !oPrinter:StartDoc("Impressao")
      MsgStop("ATENÇÃO !!! Não foi possivel Iniciar a Impressão, Favor Verificar a Impressora","Aviso do Sistema")
      Return NIL
   endif

   oPrinter:newline()
   oPrinter:SetFont('Courier New',12,{1,12}, 0, .F., .F.)
   oPrinter:TextOut( "TESTE DE IMPRESSÃO", .T. )
   oPrinter:FillRect(2000, oPrinter:PosY+200, 3000, oPrinter:PosY+600, RED)

   oPrinter:EndDoc()
   oPrinter:Destroy()
ENDIF
RETURN NIL

[jairfab]

Ok. Leonardo desta forma ja resolveu, grato, um grande abraço!