bito_sulsoft Posted October 31, 2012 Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
bito_sulsoft Posted October 31, 2012 Author Report Share Posted 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.