Imprimindo etiqueta com código de barras usando o TMSPrinter()
No exemplo abaixo, um simples exemplo que como gerar etiquetas, neste exemplo uso o componente TmsPrinter().
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 |
#Include "PROTHEUS.CH" #Include "RWMAKE.CH" User Function REST002() Local oReport Private cPerg := 'REST002' CriaSx1(cPerg) Pergunte(cPerg,.T.) Processa({ || xPrintRel(),OemToAnsi('Gerando o relatório.')}, OemToAnsi('Aguarde...')) Return Static Function xPrintRel() Local nX := 0 Local nQtdPag := 0 Private oPrint Private cAlias := getNextAlias() //cria um alias temporário Private oFont06 := TFont():New('Arial',,06,,.F.,,,,.F.,.F.) Private oFont06n := TFont():New('Arial',,06,,.T.,,,,.F.,.F.) Private oFont08 := TFont():New('Arial',,08,,.F.,,,,.F.,.F.) Private oFont08n := TFont():New('Arial',,08,,.T.,,,,.F.,.F.) Private oFont10 := TFont():New('Arial',,10,,.F.,,,,.F.,.F.) Private oFont10n := TFont():New('Arial',,10,,.T.,,,,.F.,.F.) Private oFont12 := TFont():New('Arial',,12,,.F.,,,,.F.,.F.) Private oFont12n := TFont():New('Arial',,12,,.T.,,,,.F.,.F.) Private oFont14 := TFont():New('Arial',,14,,.F.,,,,.F.,.F.) Private oFont14n := TFont():New('Arial',,14,,.T.,,,,.F.,.F.) Private oFont26 := TFont():New('Arial',,26,,.F.,,,,.F.,.F.) Private oFont26n := TFont():New('Arial',,26,,.T.,,,,.F.,.F.) Private nLin := 0 BeginSql Alias cAlias SELECT B1_COD, B1_DESC FROM %table:SB1% WHERE B1_FILIAL = %xFilial:SB1% AND B1_COD >= %exp:mv_par01% AND B1_COD '*' ORDER BY B1_COD EndSql (cAlias)->(dbGoTop()) oPrint := TMSPrinter():New(OemToAnsi('Etiqueta de produto')) oPrint:SetPortrait() //1cm +/- 117,5 px nQtdPag := (mv_par03 % 2) iif(nQtdPag = 0, nQtdPag := Int(mv_par03/2), nQtdPag := Int(mv_par03/2) + 1) While !(cAlias)->(Eof()) For nX := 1 to nQtdPag oPrint:StartPage() nLin := 0010 oPrint:Say(nLin,0010,OemToAnsi('CI: ' + alltrim((cAlias)->B1_COD)),oFont10n,,,,0) oPrint:Say(nLin,0570,DtoC(dDataBase),oFont10,,,,1) oPrint:Say(nLin,0610,OemToAnsi('CI: ' + alltrim((cAlias)->B1_COD)),oFont10n,,,,0) oPrint:Say(nLin,1170,DtoC(dDataBase),oFont10,,,,1) nLin += 0030 oPrint:Say(nLin,0299,OemToAnsi(SubStr(alltrim((cAlias)->B1_DESC),1,30)),oFont10,,,,2) oPrint:Say(nLin,0887,OemToAnsi(SubStr(alltrim((cAlias)->B1_DESC),1,30)),oFont10,,,,2) MSBAR('CODE128',0.7,0.8,alltrim((cAlias)->B1_COD),oPrint,.F.,,.T.,0.013,0.7,,,,.F.) MSBAR('CODE128',0.7,5.8,alltrim((cAlias)->B1_COD),oPrint,.F.,,.T.,0.013,0.7,,,,.F.) oPrint:EndPage() Next nX (cAlias)->(dbSkip()) enddo (cAlias)->(dbCloseArea()) oPrint:Preview() oPrint:end() Return Static Function CriaSx1(cPerg) PutSx1(cPerg,"01","Do Código Interno?" ,"Do Código Interno?" ,"Do Código Interno?" ,"mv_ch1","C",15,0,0,"G","","SB1","","","mv_par01") PutSx1(cPerg,"02","Até Código Interno?" ,"Até Código Interno?","Até Código Interno?","mv_ch2","C",15,0,0,"G","","SB1","","","mv_par02") PutSx1(cPerg,"03","Qtde Etiquetas" ,"Qtde Etiquetas" ,"Qtde Etiquetas" ,"mv_ch3","N",05,0,0,"G","","" ,"","","mv_par03") return |