Impressora Etiqueta TSC TTP-244

bito_sulsoft · October 31, 2012

Bom dia,

Amigos estou enfrentando um problema para tentar imprimir etiquetas na impressora TSC TTP-244, ela esta instalada em uma porta USB, procurei no site deles algum exemplo o mais proximo foi em foxpro usando uma DLL.

Tentei converter para FW mas ate agora nao consegui fazer imprimir!!!

Segue o codigo abaixo:

//

// TESTE ETIQUETA IMPRESSORA TERMICA TSC TTP-244

//

#include "fivewin.ch"

function main()

msginfo("Inicio dos comandos de impressao!", "TSC TTP-244")

//

openport("TSC TTP-244") // openport("TSC TTP-245")

setup("100","90","3","10","0","0","0")

clearbuffer()

sendcommand("SET TEAR OFF")

downloadpcx("UL.PCX", "UL.PCX")

windowsfont(90,380,22,0,0,0,"Arial" , "ARIAL FONT")

sendcommand("PUTPCX 200,350,"+CHR(34)+"UL.PCX"+CHR(34))

barcode("90","200","93","60","1","0","2","5","123456")

printlabel("1", "1")

closeport()

//

msginfo("Impressao enviada!", "TSC TTP-244")

return nil

//

////////////////////////////////////////////////////////////////////////////////

DLL32 STATIC FUNCTION OPENPORT( cPorta AS STRING ) AS LONG PASCAL FROM "openport" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION CLOSEPORT( ) AS LONG PASCAL FROM "closeport" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION SENDCOMMAND( cComando AS STRING ) AS LONG PASCAL FROM "sendcommand" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION SETUP( cParam1 AS STRING, cParam2 AS STRING, cParam3 AS STRING, cParam4 AS STRING, cParam5 AS STRING, cParam6 AS STRING, cParam7 AS STRING ) AS LONG PASCAL FROM "setup" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION DOWNLOADPCX( cParam1 AS STRING, cParam2 AS STRING ) AS LONG PASCAL FROM "downloadpcx" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION BARCODE( cParam1 AS STRING, cParam2 AS STRING, cParam3 AS STRING, cParam4 AS STRING, cParam5 AS STRING, cParam6 AS STRING, cParam7 AS STRING, cParam8 AS STRING, cParam9 AS STRING ) AS LONG PASCAL FROM "barcode" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION PRINTERFONT( cParam1 AS STRING, cParam2 AS STRING, cParam3 AS STRING, cParam4 AS STRING, cParam5 AS STRING, cParam6 AS STRING, cParam7 AS STRING ) AS LONG PASCAL FROM "printerfont" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION CLEARBUFFER( ) AS LONG PASCAL FROM "clearbuffer" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION PRINTLABEL( cParam1 AS STRING, cParam2 AS STRING ) AS LONG PASCAL FROM "printlabel" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION FORMFEED( ) AS LONG PASCAL FROM "formfeed" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION NOBACKFEED( ) AS LONG PASCAL FROM "nobackfeed" LIB "TSCLIB.DLL"

DLL32 STATIC FUNCTION WINDOWSFONT( cParam1 AS LONG, cParam2 AS LONG, cParam3 AS LONG, cParam4 AS LONG, cParam5 AS LONG, cParam6 AS LONG, cParam7 AS STRING, cParam8 AS STRING ) AS LONG PASCAL FROM "windowsfont" LIB "TSCLIB.DLL"

//

// EXEMPLO DA DECLARACAO EM FOXPRO

//declare openport in tsclib.dll string

//declare closeport in tsclib.dll

//declare sendcommand in tsclib.dll string

//declare setup in tsclib.dll string,string,string,string,string,string,string

//declare downloadpcx in tsclib.dll string, string

//declare barcode in tsclib.dll string,string,string,string,string,string,string,string,string

//declare printerfont in tsclib.dll string,string,string,string,string,string,string

//declare clearbuffer in tsclib.dll

//declare printlabel in tsclib.dll string,string

//declare formfeed in tsclib.dll

//declare nobackfeed in tsclib.dll

//declare windowsfont in tsclib.dll integer,integer,integer,integer,integer,integer,string,string

id=size2>id=size1>id=size2>

FWH 2.7 + xHarbour 0.99.71 + GTWVW + Pelles + xDevStudio // fabriciosouza.sc@terra.com.br

bito_sulsoft · October 31, 2012