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