Imprime codigo de barras suportados pela função MsBar().Obs: A utilização deste metodo não é homologado para a impressão de relatorios em ambientes que utilizam sistema operacional com o recurso de "Zoom" ou "Lupa" ativo. Sintaxe FWMsPrinter():FWMsBar(cTypeBar,nRow,nCol,cCode,oPrint,lCheck,Color,lHorz, nWidth,nHeigth,lBanner,cFont,cMode,lPrint,nPFWidth,nPFHeigth,lCmtr2Pix)--> Parâmetros Nome | Tipo | Descrição | Obrigatório | Referência | cTypeBar | Caracter | Código do tipo do código de barras: "EAN13", "EAN8", "UPCA" , "SUP5" , "CODE128", "INT25","MAT25,"IND25","CODABAR","CODE3_9" | X |
| nRow | Numérico | Posição relativa à esquerda | X |
| nCol | Numérico | Posição relativa ao topo | X |
| cCode | Caracter | Texto a ser transformado em código de barra | X |
| oPrint | Objeto | Objeto Printer |
|
| lCheck | Lógico | Se calcula o digito de controle. Defautl .T. |
|
| Color | Numérico | Numero da Cor, utilize a "color.ch". Default CLR_BLACK |
|
| lHorz | Lógico | Se imprime na Horizontal. Default .T. |
|
| nWidth | Numérico | Numero do Tamanho da barra. Default 0.025 |
|
| nHeigth | Numérico | Numero da Altura da barra. Default 1.5 |
|
| lBanner | Lógico | Se imprime a linha com o código embaixo da barra. Default .T. |
|
| cFont | Caracter | Nome do Fonte a ser utilizado. Defautl "Arial" |
|
| cMode | Caracter | Modo do codigo de barras CO. Default "" |
|
| lPrint | Lógico | Se executa o método Print() de oPrinter pela MsBar. Default .T. |
|
| nPFWidth | Numérico | Número do índice de ajuste da largura da fonte. Default 1 |
|
| nPFHeigth | Numérico | Número do índice de ajuste da altura da fonte. Default 1 |
|
| lCmtr2Pix | Lógico | Utiliza o método Cmtr2Pix() do objeto Printer.Default .T. |
|
|
Observações Este método utiliza-se da mesma classe utilizada pela MsBar(). Exemplos #INCLUDE "RPTDEF.CH" #INCLUDE "FWPrintSetup.ch" #INCLUDE "protheus.ch" User Function totvsprt() Local lAdjustToLegacy := .F. Local lDisableSetup := .T. Local oPrinter Local cLocal := "\spool" Local cCodINt25 := "34190184239878442204400130920002152710000053475" Local cCodEAN := "123456789012" oPrinter := FWMSPrinter():New("exemplo.rel", IMP_PDF, lAdjustToLegacy,cLocal, lDisableSetup, , , , , , .F., ) oPrinter:FWMSBAR("INT25" /*cTypeBar*/,1/*nRow*/ ,1/*nCol*/, cCodINt25/*cCode*/,oPrinter/*oPrint*/,.T./*lCheck*/,/*Color*/,.T./*lHorz*/,0.02/*nWidth*/,0.8/*nHeigth*/,.T./*lBanner*/,"Arial"/*cFont*/,NIL/*cMode*/,.F./*lPrint*/,2/*nPFWidth*/,2/*nPFHeigth*/,.F./*lCmtr2Pix*/ oPrinter:FWMSBAR("EAN13" /*cTypeBar*/,5/*nRow*/ ,1/*nCol*/ ,cCodEAN /*cCode*/,oPrinter/*oPrint*/,/*lCheck*/,/*Color*/,/*lHorz*/, /*nWidth*/,/*nHeigth*/,/*lBanner*/,/*cFont*/,/*cMode*/,.F./*lPrint*/,/*nPFWidth*/,/*nPFHeigth*/,/*lCmtr2Pix*/) oPrinter:Setup() if oPrinter:nModalResult == PD_OK oPrinter:Preview() EndIf Return |