#include "teclas.ch"                    && Inclui defini‡„o de teclas
#include "rddleto.ch"
#include "teclas.ch"                    && Inclui defini‡„o de teclas
#include <hbthread.ch>
#include "setcurs.ch"
#include "error.ch"
#include "achoice.ch"
#include "fileio.ch"
#include "common.ch"
#include "dbinfo.ch"
#include "hbver.ch"
#include "hbcompat.ch"
#include "hbgtinfo.ch"
#include "wvtwin.ch"
#include "inkey.ch"

#define FORM_A4 9
#define RGB( nR,nG,nB ) ( nR + ( nG * 256 ) + ( nB * 256 * 256 ) )
#define PS_SOLID   0
#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 Main()
cprinter := GetDefaultPrinter()
oprinter:= win32prn():new(cprinter)
oPrinter:Landscape:= .F.
oPrinter:FormType := FORM_A4
oPrinter:Copies   := 1
oPrinter:CharSet(255)

oPrinter:Create()
oPrinter:setPrintQuality(-4)
oPrinter:startDoc("ETIQUETA")
oPrinter:SetColor( BLACK )
nTopo := 300
nMargemEsquerda := 50
nTamEtiqueta := 2500
nEspacamento := 70
pg := 1

	   nProximaLinha := nTopo
	   // sintaxe: oPrinter:setFont(cFontName, nPointSize, nFontWidth, nFontWeight, lUnderline, lItalic, nCharSet)

	   oPrinter:SetFont('EAN-13', 18, 10)
	   oPrinter:SetPrc(oPrinter:Prow(), 2 )
	   oPrinter:TextOutAt(50, 400, "7896445490086")

	   oPrinter:SetFont('Arial Black', 18, 0 , , , ,255)
	   oPrinter:TextOutAt( nMargemEsquerda, 1000.00, '12345')

	   oPrinter:SetFont('EAN-13', 18, 10 )
	   oPrinter:TextOutAt(50, 1400, "7896445490086")

oPrinter:enddoc()
oPrinter:destroy()
return nil