Histórico da Página

...

Propriedade	Descrição	Tipo
aImages	Lista de imagens do relatório.	Vetor
cFileName	Nome do arquivo a ser gerado.	Caracter
cFilePrint	Arquivo que conterá o binário do relatório.	Caracter
cPathPDF	Path do arquivo PDF.	Caracter
cPathPrint	Nome do diretório onde o relatório será gerado.	Caracter
cPrinter	Nome da impressora para impressão do relatório.	Caracter
cSession	Informações de configuração da impressora.	Caracter
IsFirstPage	Determina se é a primeira página do relatório.	Array of Record
lCanceled	Define se o relatório foi cancelado.	Lógico
lInJob	Determina se o relatório está sendo executado via Job.	Lógico
lServer	Indica impressão via Server (.REL Não será copiado para o Client).	Lógico
lTReport	Indica que o relatório foi chamado pelo TReport.	Lógico
lViewPDF	Indica se o arquivo será exibido após a impressão em PDF.	Lógico
nDevice	Dispositivo de impressão.	Numérico
nModalResult	Retorna o ModalResult do Setup, para que o usuário trate a informação	Numérico
nPageCount	Quantidade de páginas do relatório.	Numérico
nPageHeight	Altura da página.	Numérico
nPageWidth	Largura da página.	Numérico
nPaperSize	Tamanho da folha do relatório.	Numérico
oFontAtu	Fonte do relatório.	Objeto
oPrint	Objeto de impressão.	Objeto

...

Code128B()

Descrição:

O método Code128b faz a impressão de código de barras no padrão estabelecido. O código é convertido antes da impressão.

Sintaxe:

Code128B( nRow, nCol, cCodeBar, nSizeBar ) - > Nil

Parâmetros:

Nome	Tipo	Descrição	Obrigatório
nRow	Numérico	Posição vertical onde o código de barras será impresso

Sim

X
nCol	Numérico	Posição horizontal onde o código de barras será impresso

Sim

X
cCodeBar	Carácter	O código que será convertido no formato Code128B

Sim

X
nSizeBar	Numérico	Tamanho do fonte do código de barras

Sim

X

Bloco de código

language	js
theme	Midnight
title	Exemplo

//-------------------------------------------------------------------
/*/{Protheus.doc} Code128b
 Exemplo de uso da função Code128b()
 
@author  FRAMEWORK
@since   23/09/2024
@version 1.0
/*/
//------------------------------------------------------------------


#Include "PROTHEUS.CH"
#Include "RPTDEF.CH"
#INCLUDE "TBICONN.CH"
 
User Function Code128b()
Local oPrinter  := Nil
 
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"
    oPrinter      := FWMSPrinter():New('teste',6,.F.,,.T.,,,,,.F.)
    oPrinter:Setup()
    oPrinter:setDevice(IMP_PDF)
    oPrinter:cPathPDF :="C:\"
    oPrinter:Say(10,0,"Teste para Code128b")   
    oPrinter:Code128b(100, 10, '1234567', 50)      
    oPrinter:EndPage()
    oPrinter:Preview()
    FreeObj(oPrinter)
    oPrinter := Nil
RESET ENVIRONMENT
 
Return

Informações

A opção do tipo de impressão não é salva pela última escolha feita. Caso exista a necessidade desse comportamento deve-se realizar a implementação diretamente no programa que se utiliza da classe gravando, recuperando e informando qual o tipo.

Uma opção desse tipo de controle pode ser vista abaixo (FWProfile)

Bloco de código

Function u_localPrint()
    Local lAdjustToLegacy   := .F.
    Local lDisableSetup     := .T.
    Local oPrinter
    Local cLocal            := "c:\temp"
    Local nPrtType          := 6 // IMP_PDF > 6 || IMP_SPOOL > 2
    Local aDevice           := {}
    Local cSession          := GetPrinterSession()

    AADD(aDevice,"DISCO") // 1
    AADD(aDevice,"SPOOL") // 2
    AADD(aDevice,"EMAIL") // 3
    AADD(aDevice,"EXCEL") // 4
    AADD(aDevice,"HTML" ) // 5
    AADD(aDevice,"PDF"  ) // 6
    
    oProfile    := FWProfile():New()
    oProfile:SetTask('PRINTTYPE')    
    cDevice := oProfile:LoadStrProfile()
    
    nPrtType := aScan(aDevice,{|x| x == cDevice })

    oPrinter := FWMSPrinter():New("exemplo", nPrtType, lAdjustToLegacy, cLocal, lDisableSetup, , , , , , .F., )
    oPrinter:Say(10, 0, "teste")
    oPrinter:Setup()

    If oPrinter:nModalResult == PD_OK
        oProfile:SetTask('PRINTTYPE')    
        oProfile:SetStringProfile(If(oPrinter:nDevice==2, "SPOOL", "PDF"))
        oProfile:Save()
        oPrinter:Preview()
    EndIf
Return

...

Páginas filhas

Versões comparadas

Versão antiga 44

Nova versão Atual

Chave

Code128B()